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Btrieve . 
Network and single-user 
file management for all your programs. 
All your programming languages. 


Fast, flexible b-tree record retrieval. 





Say goodbye to writing file management routines. 

Because now Btrieve’ can handle file management 
for all your program development on the IBM PC. All 
your programming languages. And perform the task better 
than if you had written your own file management pro- 
gram. With Btrieve, you can develop better application 
programs faster. 

Based on the b-tree file indexing system, Btrieve pro- 
vides the most sophisticated file handling powers available 
for the IBM PC. And for multiple PCs. Btrieve™ /N lets 
you share files among PCs in MultiLink;" PCnet,” 
NetWare™ or EtherSeries™ local area networks. And both 
Btrieve and Btrieve/N offer the same superior performance 
characteristics: 

@ Interfaces all major IBM PC languages—BASIC, 

Pascal, COBOL, C, and IBM Macro Assembler 

e Written in 8088 Assembler for the IBM PC 

¢ Unlimited number of records per file 

e Automatic file recovery on system crash 

¢ User-defined transaction management 

¢ Complete error control and recovery within an 

application 

© Multikey access to records 

¢ Duplicate, modifiable, and segmented keys 

Variable cache buffer from 16K bytes to 64K bytes 


¢ Automatic file organization and b-tree balancing. 


Moreover, record retrieval is fast with Btrieve—no 
matter how large your data base. And with Btrieve'’s con- 
cise, clear documentation, you can begin using Btrieve 
almost from the moment you load it. So you can begin 
writing programs faster with Btrieve. 

Say goodbye to file management routines. And hello 
to Btrieve. 


SC SoftCraft Inc. 





P.O. Box 9802 #590 Austin, Texas 78766 (512) 346-8380 


Suggested retail prices: Btrieve, $245; Btrieve/N, $595. Requires PC/DOS or 


MS™/DOS, version 1 or 2. Dealer inquiries welcome. 

IBM, MS, Btrieve and Btrieve/N, PCnet, MultiLink, NetWare, and EtherSeries are 
trademarks of International Business Machines, Microsoft Corporation, SoftCraft Inc., 
Orchid Technology, Davong Systems Inc., Novell Data Systems, and 3Com Corp., 
respectively. 
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Please send me information on HJ Btrieve OI Btrieve/N 


Name 
Company 
Address 


Phone 


Circle no. 67 on reader service card. 


City, state, zip 


Send to SoftCraft Inc., P.O. Box 9802 #590, Austin, TX 78766 
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It’s fast. 

It’s easy. 

It’s the most powerful data- 
base management system for your 
16-bit PC. 

And it can do more things with 
more records in less time. 


You've never seen 
anything like it. 
dBASE III™ can 

handle over a billion 
records per file, limited 
only by your computer 


system. You can have up to tonetee oer — 


sophisticated applications programs. 

When you have two related files,informa- 
tion in one can be accessed based upon data in 
the other. | 

dBASE III now handles procedures, para- 
meter passing and automatic variables. You can 
include up to 32 procedures in a single file. 
With lightning speed. Because once a file is 
opened, it stays open. And procedures are 
accessed directly. 


Easier than ever. 

dBASE III uses powerful yet simple com- 
mands that are the next best thing to speaking 
English. 

If youre unsure of a command, HELP will 
tell you what to ask for. 

If you don’t know what command comes 
next, acommand assistant does. All you have 
to know is what you want it to do. 

Our new tutorial/manual will have you 
entering and viewing data in minutes rather 
than reading for hours. 





And to make matters easier, 
you get full screen report set- 
up for simple information 
access. 


Faster than 
no time at all. 
dBASE III isn’t just fast. 

It's ultra-fast. Operating. 

And sorting. Even faster, 
is no sorting. Because dBASE III 
keeps your records in order so you really don't 
have to sort anything. Unless you want to. 
Then watch out! 


What about dBASE II®? 


It’s still the world’s best database man- 
agement system for 8-bit computers. And it’s 


still the industry standard for accounting, 


educational, scientific, financial, business and 
personal applications. 


Let us do a number on you. 

For the name of your nearest authorized 
dBASE III dealer, contact Ashton-Tate, 10150 
West Jefferson Boulevard, Culver City, CA 
90230. (800) 437-4329, ext. 333. In Colorado, 
(303) 799-4900. 


ASHTON -TATE 


©Ashton-Tate 1984. All rights reserved. 
dBASE III is a trademark and dBASE II is a registered trademark of Ashton-Tate. 
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In This Issue 


Over the next few months you will be seeing some cosmetic changes in Dr. Dobb’s. 
Some will be intended to enhance newsstand visibility, some to enhance general read- 
ability, some to increase contact or involvement with the readership. You may have 
noticed when you picked up this issue that the logo is slightly different, as is the de- 
scriptor line above the title. In future issues you will see some variation in format for 
various sections of the magazine, and our conversion in July to a new typesetting system 
will result in greater readability as well. This issue we have added the section you are 
presently reading. 

With the Editorial page being exclusively devoted to essays each month, we found 
that we needed some space in which to let you know about things of importance re- 
garding the magazine. This is that space. You will find highlights of the current issue 
and coming topics, announcements of events or other items of interest, acknowledge- 
ments of special contributions to the magazine, or other things we consider noteworthy. 

Since we are still settling in, we will postpone details on our growing number of 
projects, including the bulletin board to which we have alluded, until they progress a 
bit further. One project that is in full swing, however, is our Fifth Generation Program- 
ming Competition. If you did not notice our full-page announcement last month, take 
a look at page 81 this month for details. In addition, our efforts to improve services 
should be evident from the growth of the masthead. Many of the new names you will 
find there are folks who will be making sure that DDJ is more available on the news- 
stands and that subscriptions are serviced better. 


The contents page (facing) should give you a good overview of what we have for 
you this month. During the next few months you can look forward to continued 
coverage of C and Small C, including a preprocessor for the Small C compiler. Forth 
will remain an active topic, with our annual Forth issue scheduled for September. 
Some other items to watch for include an infinite key cryptography system, discussion 
of Resident System Extensions under CP/M Plus, and some articles on mathematical 
computation. 


Reynold Wiggins 


This Month’s Referees 


Dr. Dobb’s Journal regularly draws on the expertise of a Board of Referees for 
technical evaluation of material submitted for publication. In addition to their remarks 
to the editors concerning accuracy and relevance of manuscripts, the referees often 
provide constructive comments for authors regarding clarity or completeness. 

The board includes nearly fifty experts from diverse areas of the computer industry 
and the academic community. Because of space considerations, we can print a list of 
the entire board only a few times each year. Monthly, however, we do print the names 
of the referees who contributed their insights on material in that particular issue. Your 
humble editors, who bear the burden of choosing how material ultimately appears, 
are grateful for the beneficial insights we receive. 

The referees who contributed to this month’s issue are: 


David E. Cortesi, Contributing Editor, DD/J 

Kim Harris, Forthright Enterprises 

J. E. Hendrix, Office of Computing & Information Services, University of Mississippi 
William Ragsdale, President, Dorado Systems 
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Z editor (like Vi), C TUTOR compiler, PHACT database, 
C GRAFX, UNI-TOOLS |, QUICK C, BABY BLUE for PC AZTEC C65 
to CP/M cross, QUADLINK for PC to APPLE cross “C” compiler for APPLE DOS 3.3, ProDOS or COMMODORE 64 
VED editor, SHELL, UNIX & math libraries 
/PRO-—library source, ROM, overlays 





CROSS COMPILERS 
Compile & link on HOST —test on TARGET machine 
HOSTS: UNIX, PC DOS, CP/M-86, CP/M-80, VENIX, PCIX, APPLE 
TARGETS: PC DOS, CP/M-86, CP/M-80, APPLE, RADIO SHACK, 
COMMODORE 64, other hosts and targets available 





PRICES 
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BOTH 399 TRS 80 MODEL 3 149 CP/M-86 HOST 750 
/PRO EXTENSIONS 249 TRS 80 MODEL 4 199 CP/M-80 HOST 750 
Z (VI EDITOR) 125 TRS 80 PRO (3 & 4) 299 APPLE HOST 750 
C TUTOR COMPILER . 99 
PHACT DATABASE 299 AZTEC C65 C COMPILER 
C GRAFX 99 APPLE DOS 3.3 199 
SUPERDRAW 299 ProDOS 199 
UNI-TOOLS | 99 BOTH 299 
QUICK C 125 /PRO EXTENSIONS 99 

C TUTOR COMPILER 99 

E EDITOR 99 

QUICK C 125 









MANX SOFTWARE SYSTEMS 
Box 55 — 





TO ORDER OR FOR INFORMATION: 
CALL: 800-221-0440 (outside NJ) 
201-780-4004 (NJ) 


Shrewsbury, NJ 07701 
" TELEX: 4995812 





Australia: Blue Sky Industries — 2A Blakesley St. — Chatswood NSW 2067 — Australia 61-2419-5579 
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Shipping: per compiler next day USA $20, 2 days USA $6, 2 days worldwide $75, Canada $10, airmai i 
‘ , . ; ail outside USA & Canada $20 
UNIX is a trademark of Bell Labs. CP/M, CP /M-80 and CP/ M-86 are trademarks of DRI. PC DOS i 
, ' is a trademark of IBM. MS i 
ct suas we ou oar DOS is a trademark of MICROSOFT. 


Circle no. 36 on reader service card. 


EDITORIAL 





About those dragons. 

Dr. Dobb’s Journal prides itself on providing useful tools and information for advanced programmers. Last month 
we ranged beyond the fields we know and published an article on “sixth generation computers,” whose author explored 
the implications of applying bizarre twists of quantum physics to computer design. The discussion of faster-than-light 
particles with imaginary rest mass will probably never help anyone write a better spreadsheet program or word processor; 
it frankly bordered on fantasy. Here’s why we published it. 


China story, version 1.0: China, until the twentieth century, was largely isolated from Western culture. Homage 
to traditions had kept some strange practices (acupuncture, footbinding) in force while modern science developed in 
the West. When, in the twentieth century a new generation of Chinese, unwilling to suffer longer the mindbinding of 
tradition, brought in Western science, the intellectual conquest was swift. Science punctured the fragile structure of 
ancient traditions, and China joined the twentieth century. Then in 1954 the communists overturned all these advances, 
exiled the intellectuals to farms and brought back superstition and ignorance as state policy. 


China story, version 2.0: China, the oldest civilization on the planet, had a rich structure of tradition. In the 
twentieth century, overawed by Western technological advances, young Chinese revisionists built a power Structure of 
intellectuals modeled along alien Western lines, and trampled traditional Chinese values. In 195 4, the government took 
action to redress the balance and protect the country’s traditions from Western erosion. 


Which China story is the truth? Probably neither, but both have been purveyed as truth, and the disparity between 
the two versions underscores the danger of complacency about one’s worldview. Western science is itself a tradition, 
with its blind spots and unquestioned dogma. It isn’t always the best tradition. It is now apparent that some traditional 
Chinese medical practices work better than their Western counterparts. Unfortunately the blinders of the Western scien- 
tific tradition insured that only those scientists who were willing to look into something they knew couldn’t work 
were in a position to learn this fact. Those who entertained notions that bordered on fantasy are the ones who learned 
something new. 


It’s that way with programming, too. 

DDJ isn’t interested in just helping programmers write better spreadsheets and word processors (although we do 
that.) Programming at its best is a creative activity, and requires that willingness to entertain ideas that can’t possibly 
work. Programming at its best is what DDJ is about. So we’l] range beyond the fields we know, and sometimes we may 
trip. This time, apparently, we didn’t. As of this writing, our mail is running overwhelmingly in favor of the sixth 
generation article. 


This month we set forth to China, and embark on a different kind of fantasy, with Timothy Huang’s article on 
Chinese Forth. DDJ has always championed the cause of putting computer power into the hands of the largest number 
of people, and placing Forth in the language of a large fraction of Earth’s inhabitants is surely a step in that direction. 
It is of course a fantasy to think that the efforts described in this article will have any significant effect on U.S.-Chinese 
relations or on our survival on the planet. Isn’t it? 


Oh yes, the dragons. 

This month’s cover depicts two dragons, one Western, one Chinese, sharing technology. (The Western dragon is 
the fat one.) It nicely illustrates our Chinese Forth article. But the dragon is DDJ’s symbol, too; one the magazine has, 
since its first issue, used as a reminder not to be tied to the fields we know. Personal computers are changing the world, 
and only those who are willing to poke the dragon will find the jewels clinging to its belly. 

DDJ has been tickling the dragon for eight years, and sharing the jewels. We think we’ll keep right on doing it. 


Micladl Susorve 


Michael Swaine 
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The editorial response card is a great way 
to talk to us, but don’t forget that Dr. 
Dobb’s Journal also welcomes letters to 
the editor as a forum for ideas, innova- 
tions, irascibility and even idiosyncrasies. 
Some letters may be edited for clarity 
and brevity. The Doctor likes hearing 
from you — keep on writing. 





On Soul of CP/M 


Dear DDJ: 

I get the feeling that the review of 
Soul of CP/M, Waite & Lafore, was from 
the viewpoint of an experienced assembly 
language programmer looking backward. 
Granted, the number of editorial errors 
was attackable, but the manner in which 
the material was presented was tremen- 
dous for the target readership. 

I’ve read (or started to read) a good 
number of CP/M assembly language books. 
Nealy all of them take the approach of 
presenting the BDOS calls at the front, 
numerous multi-page program samples 
with unintelligible labels and explanations, 
some cryptic references to the perfect 
BIOS, and an appendix with the 8080/Z80 
instruction set. 

Waite & Lafore feed the material in 
chewable bytes (pun intended) so the 
reader doesn’t need a brain with a Z80 and 
64K of permanent memory to compre- 
hend and retain it. No, it is certainly not 
a complete text, but at least now all those 
other books make sense to me. 

If they can eliminate the remaining 
editorial errors in the second printing, 
they have a winner. 

Doug Hurst 
6808 Estrella Avenue 
29 Palms, CA 92277 


Even Better Preprocessing 
Dear Doctor: 

Although this journal may not have 
many clients — excuse me, readers — 
who do (or will admit to doing) much 
programming in BASIC, there must be 
others like myself who for one reason or 
another are constrained to use this lan- 
guage (but only during working hours, I 
protest). All BASIC users owe a debt of 
gratitude to N. C. Shammas for the 
NBASIC preprocessor presented in your 
January issue. This tremendously useful 
routine has mitigated some of the most 
serious drawbacks of interpreted BASIC. 

There are, however, a couple of im- 
provements that users might wish to make. 
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The first of these is to make the CASE 
statement accept strings as expressions, a 
relatively simple change that requires 
adding or modifying only four or five 
lines. The second is a major rearrangement 
of the program so that CALL statements 
are processed before the CASE-OF struc- 
tures. The reason for this is that pro- 
cessing of the CASE-OF commands puts 
a GOTO on the end of the last line of each 
group of expressions. CALL statements 
are resolved into GOSUBSs. 

Consider, then, the situation when a 
CALL is the last line of a CASE-OF ex- 
pression group. As the program is written, 
the GOSUB is never executed because 
it becomes preceded by the GOTO. There 
is another related problem that arises from 
the appending of a GOTO on the last line 
of a CASE expression group. If the last 
line of this group is an IF statement, there 
must be an ELSE clause included if the 
CASE construction includes an !ELSE DO 
statement group. Otherwise, when the IF 
statement is false, the GOTO will not be 
executed and the !ELSE DO statement 
group will be executed. With these two 
modifications made, and the last quirk 
kept in mind, NBASIC can quickly be- 
come an indispensable part of program- 
ming in this most widespread of languages. 

Both N. C. Shammas in particular and 
Dr. Dobb’s in general deserve great praise 
for the quality and usefulness of their 
articles. 

Sincerely, 

Dreas Nielsen 

234 NW 30th St. 
Corvallis, OR 97330 


Remarks on RSA 


Dear Sirs: 

Thank you for a most interesting 
article on the Rivest-Shamir-Adleman 
(RSA) Public Key Systems by C. E. Burton 
in the March 1984 issue. This discourse is 
well written and certainly very needed. 
I would, however, like to caution the 
readers against too heavy a reliance on the 
security aspects of RSA. 

Earlier this year Gustavus Simmons, 
James Davis, and Diane Holdridge of 
Sandia National Laboratories were able to 
factor the last of the Mersenne primes 
(2**251)-1. By using parallel processing 
of number clusters it is simple to extrap- 
olate that RSA will no longer be a secure 
system. 

Undoubtedly for general use RSA will 
continue to be valid. However, with some 
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of these newly developed techniques the 
only truly secure system must be the old, 
one-time pad system, in which the volume 
of ciphertext is insufficient to analyze 
statistically, and the key changes with a 
frequency to prevent valid analysis. 

A good basic text for your readers 
so interested is Cryptography, A Primer 
by Alan G. Konheim (John Wiley & 
Sons, 1981). 

Please keep up the good work. | 
certainly look forward to your publica- 
tion each month. 

Cordially, 

James R. Criscione Jr., M.D. 
President 

Med- Data, 246 Grand Avenue 
Kirkwood, Missouri 63122 













Dear Dr. Dobb: 

It was good to hear about an old 
friend, RATFOR, in Mr. Burton’s article 
on the PKS in the March ’84 issue of Dr. 
Dobbs. I have run several tens of thou- 
sands of lines of code through the RAT- 
FOR preprocessor and was very grateful 
for its services in an environment where 
Fortran was the only compiler available. 
But I am somewhat ambivalent about pro- 
moting its usage when there are viable 
alternatives. 

My negative feelings toward RATFOR 
are summarized by the following factors: 


(1) relatively few people use RATFOR 
(or have even heard about it) and it 
is difficult to find a community of 
users for sharing experiences or 
software, 
installation of RATFOR can be diffi- 
cult and occasionally short circuited 
by versions of Fortran with non- 
standard limitations, 
the added time for preprocessing on 
a small micro can be excessive, 
temptations to hack RATFOR into 
“new and improved” versions can 
destroy code transportability, and 
(5) we are still using Fortran with all its 
fundamental limitations. 


(2) 


(3) 
(4) 


Fortran has far outlived its useful 
purpose (if it ever had one) but it is, ad- 
mittedly, one of the most commonly 
available compiler languages on minis and 
midis and maxis. I heartily recommend 
RATFOR as a salve to soften the agony 
of having to deal with this unwieldy Tyran- 
nosaurus. Mssrs. Kernighan and Plouger 
managed to make far better use of their 
time developing RATFOR than the com- 
mittee that came up with Fortran ’77. 
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An initial perusal of the article also 
revealed a typo in the multiplication rou- 
tine descriptive text: the line ‘‘M5” i 
index should read ‘“‘i=i-1” not “i=i-7’’. 
I also would suggest that Mr. Burton can 
save some computer time by removing 
the “‘mod”’ and division operations from 
the multiple-precision add and subtract 
functions. By using the facts that the sum 
is always going to be less than twice the 
radix and the absolute value of the dif- 
ference is always less than the radix, the 
C code in Figure (at right) shows “‘divi- 
sion/mod-less”’ evaluations. 

If we declare: 


long carry, acc; 
unsigned short *u, *v, *w; 


then we can define RADIX to be ‘‘power 
(2, n)” (2**n for Fortran folks) where n 
is the number of bits in a type “‘short”’ 
word. This will allow us to compute the 
equivalent of about 4.5 decimal digits 
per loop iteration on a machine with 16- 
bit type “short.” Of course, when debug- 
ging the system we can define RADIX as 
10 to facilitate formatting. I would also 
tend to make RADIX a compile-time 
definition rather than a runtime argu- 
ment for the PKS software. 

The last comment relates to Mr. 
Burton’s statement at the end of the ad- 
dition algorithm text that the Fortran 
intrinsic “INT(x)” is equivalent to “‘floor 
(x).”” This is only true for positive values 
of x. “floor” (related to ALGOL’s “‘en- 
tier’’) is correctly stated as the greatest in- 
teger less than or equal to x. Consequently: 


floor(-—3.45) -> -4 
But the Fortran intrinsic yields: 
INT(-3.45) ->-3! 


I didn’t see that Mr. Burton ever used it, 
but the statement was rather careless and 
should have been caught in technical 
review. 

Obviously I’ve found Mr. Burton’s 
article interesting and intend to follow 
along the steps to producing a public key 
encryption system as a diversion from 
some of my more mundane programming 
activities. It takes me back to the “‘secret”’ 
messages of Capt. Midnight, et al., and 
the kids’ radio shows of the ’40s. The 
trouble is, our decoding rings have gotten 
a little more expensive. Maybe Dr. Dobb 
can have “‘secret’? messages about next 
month’s articles. 

Sincerely, 

Gerald I. Evenden 

Box 1027 

North Falmouth, MA 02556 
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16-bit single-user — $595; 16-bit multi-user — $795. _ 















_ "Wee = Coarry = ace >= 


- - RADIX +: ace: 
carry = 0; rrr 
while (w >= wa) { /® basic subtrac 
ace / = *u-- m (Cf yn. = carry); 
Bwe- = (carry = ace < 0) ? ac 


. Figure 





"Q-PRO4 blows 
BASE Il away 


We now complete complex applications 
in weeks instead of months. 9¥ 
Says Q-PRO4 user, Richard Pedrelli, President, Quantum Systems, Atlanta, GA 


&& As a dBASE II beta test site the past two years, we were reluctant to 
even try Q-PRO4. Now we write all our commercial applications in Q-PRO4. 
We find it to be an order of magnitude more powerful than dBASE. 

We used Q-PRO4's super efficient syntax to complete our Dental 
Management and Chiropractic Management Systems much faster. Superb 
error trap and help screen capabilities make our finished software products 
far more user friendly, too. 

In my estimation, any application programmer still using outdated 3rd 
generation data base managers or worse, a 2nd generation language like 
BASIC, is ripping himself off. 99 _ 

Runs with PCDOS, MS-DOS, CP/M, MP/M, CP/M86, 
MP/M86, TurboDOS, MmmOST, MUSE, and NSTAR. 
PRICE: 8-bit single-user — $395; 8-bit multi-user and 




















Bas at 7 
Taney 


For Q-PRO 4 demonstration, go to nearest MicroAge store or other fine dealer. 


Quic-n-easi products inc. 


136 Granite Hill Court, Langhorne, PA 19047 (215) 968-5966 Telex 291-765 


CP/M. MPM. CP/M86. and MP/M86 are trademarks of Nigtal Research TurbDOS. MmmOST. MUSE NSTAR, MS-DOS and PCDOS are trademarks of Software 2000, TeleVideo Systems. 0.S.M., Molecular. Microsoft and IBM, respectively 


Circle no. 56 on reader service card. 
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MiniReview: Quasi -Disk 

Late last year we decided to reward 
our S-100 system for three years of faith- 
ful work by giving it some new hardware. 
One thing it had been pining for was an 
electronic drive. It would be nice to say 
that we did a careful engineering analysis 
of the products on the market, but in fact 
— tell the truth and shame the devil — we 
merely checked the prices of all the RAM- 
drive boards we could find in the ads in 
one month’s worth of computer magazines. 

The cheapest one was the Quasi- 
Disk, from Electra-Logics, Inc. (39 Dur- 
ward Place, Waterloo, Ontario, Canada 
N2L 4E5; (519) 884-8200). Its retail 
price of $799 for 512K was, in December 
1983, half that of its nearest competitor. 
Never ones to let engineering details blind 
us to the bottom line, we ordered one, 
plus a battery backup unit at $159. 

The order was held up because of 
a parts shortage, but Electra-Logics was 
decent enough to hold our check, only 
cashing it after it shipped the board early 
in February. The board arrived in mid- 
February, and the battery backup unit 
trailed in in early March. 

Once it had arrived, the Quasi- 
Disk gave a good account of itself. Fol- 
lowing the manual, we cut one trace 
(pin 53), which appears as ground in the 
IEEE standard but as a disable signal in 
our system. That done, we slotted the 
board into the system and fired it up, and 
the system worked normally. The package 
included a good diagnostic program 
that ran correctly under CP/M Plus; it 
reported that the board was working. 

The Quasi-Disk package contains a lot 
of software (including a self-installing disk 
driver and a print spooler), but all of it 
is designed to work with CP/M 2.2. We 
couldn’t test it because we are on CP/M 
Plus exclusively. It took us several hours 
to ferret out the details of how to read and 
write the board as a pseudo-disk and to 
create a new module for the CP/M Plus 
BIOS. Installing the code wasn’t hard, how- 
ever, since the CP/M Plus BIOS is modular. 
All the Quasi- Disk code went into a sepa- 
rate assembly; the names of its public en- 
try points went into the drive table; the 
BIOS was relinked and a new system gen- 
erated; and we were up. 

We made the board appear to the rest 
of the system as a disk of 64 tracks, each 
holding eight 1K physical sectors. The dis- 


tributed software treats the “‘disk” as one 


having 128-byte sectors, but we wanted 
to reduce the traffic between the BDOS 
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and the BIOS. Whereas the distributed 
code uses a 1-byte checksum for each 
‘sector,’ we reserved 2K of the board to 
hold true 16-bit CRC codes. No CRC 
errors have been trapped in six weeks of 
operation. 

The Quasi-Disk is much faster than 
a mechanical drive, but access to it isn’t 
instantaneous. Data transfer takes just as 
long as it does to a real disk, but there are 
no seek or rotational delays. We have a 
disgustingly disk-bound Sort program. 
When it sorts a 60K file on disk, it takes 
15 minutes 25 seconds. When its work 
files are on the Quasi-Disk, it runs in 9 
minutes 25 seconds, 61% of the mech- 
anical time. The extra six minutes of the 
disk sort are entirely devoted to head 
motion and rotational delays — a sobering 
thought. 

Speed is not the Quasi-Disk’s only 
benefit. It turned out to be very nice just 
to have a third drive. Under CP/M Plus, the 
PROFILE.SUB that runs automatically at 
boot time can load that drive with the 
100K of standard utilities, then set the 
drive-search path so that the system 
searches for commands first on drive M, 
then on drive A. That lets us omit the 
standard commands from other disks but 
still allows us to access them, quickly and 
silently, at any time. 

The battery backup unit comprises 
a transformer that plugs into the wall and 
a black box, the size of a carton of cig- 
arettes, that is stuffed full of sealed gel 
cells. A ribbon cable from the black box 
snakes into the computer, where it plugs 
into the Quasi-Disk. When system power 
is off, the transformer keeps the board 
alive. If the electric service fails, the gel 
cells can take over for a couple of hours. 
A longer outage drains the batteries, 
losing data. 

In our judgment, the Electra-Logics 
Quasi- Disk is a sound, well-made piece of 
hardware at a very good price. Its docu- 
mentation is complete, although not well 
organized. Its supporting software is en- 
tirely oriented to CP/M 2.2, so the CP/M 


Plus user has to be able to roll his own, : 


That’s a pity, because it’s the flexibility 
of CP/M Plus that makes the Quasi- Disk a 
really convenient extension of the system. 


Fooling RMAC 


Relocating assemblers such as Digital 
Research’s RMAC make a distinction 
between relocatable values and nonrelo- 
catable ones. The difference is hard to 
grasp at first, and if you fail to grasp it, 


you may be sorely puzzled by the assem- 
bler’s actions. Even when you do grasp 
it, the assembler’s rules on what you can 
and can’t do with a relocatable value can 
cramp your style. 

A label is a relocatable value. Define 
a label: 


Here: mvia,1 


Now the value of the symbol ‘“‘Here’’ has 
been set as a 16-bit number, the contents 
of the assember’s location counter at that 
point. The number is a relocatable value, 
however. The value of ‘“‘Here”’ is only the 
relative offset of “Here” within its parti- 
cular segment. ‘‘Here” won’t be at that 
location when the program runs; its actual 
storage address will be offset by some 
amount that can’t be known at this time. 

Define two labels in the same segment: 


Here: mvia,1 
There: ora b 


Both are relocatable. The assembler will 
permit you to subtract them, 


dw There-Here 


because the difference between them isa 
constant — it will be the same no matter 
where the linker puts the program. That 
is true only when the labels are defined 
in the same segment, of course. The rela- 
tive origins of the code and data segments 
can’t be known at assembly time, so the 
difference between a code label and data 
label can’t be known. 

The assembler also can allow you to 
add or subtract a constant from a relo- 
catable value, so: 


dw There-16 
dw Here+5 


It can permit that because a linker that 
supports the standard REL-file format 
must permit adding a constant to a re- 
locatable value. The algebraic addition will 
be performed at link time; the assembler 
only needs to record a reference to the 
(future) location of the label and to re- 
cord the constant. 

No other manipulations are permitted 
on relocatable values. The value of, say, 
Here AND OFFh can’t be known at 
assembly time. Nor can the sum of two re- 
locatable values be known. You can 
usually get around these things, if only by 
coding instructions that will carry out the 
evaluation when the program is executed. 

What can’t be gotten around is the 
need to evaluate macro operands that are 
relocatable values. In particular, RMAC 
doesn’t allow any relocatable value to be 
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evaluated in an IF statement. 

This caused us a problem. We were 
making a set of macros in which we 
wanted either to save and load a register 
or leave it alone before doing something. 
In other words, we wanted to code some- 
thing along these lines: 


if ... some test of an operand .. 


push d 
Ixi d,operand 
endif 


One way to do this is to allow an 
omitted operand to mean one thing and 
a stated operand the other: 


if not nul operand 


push d 
lxi d,operand 
endif 


But omitting operands is tricksy and makes 
the code hard to read. It would be a lot 
nicer, and a lot harder to err, if the user 
had to write some special keyword — 
say, “‘noload’? — to specify that the 
register is already loaded. 

Now, the DRI assemblers provide no 
method by which you can test the literal, 
superficial encoding of a macro operand. 
There is no way to code the test, ‘“‘If the 
user wrote exactly ‘noload’ then....”’ 
Some assemblers for the 8086 do allow 
that, using the angle brackets as meta- 
quotes. But in MAC and RMAC, if you code 


if operand ne noload 


the assembler will compare the assigned 
values of ‘“‘operand’’ and “‘noload,” not 
the character strings that name them. 

Very well, we thought, we will define 
our keywords in equate statements, giving 
them highly unlikely values, e.g., 


noload equ Oabcdh 
Now we can write 
if operand ne noload 


and the assembler will compare the value 
substituted for “‘operand’”’ to the value 
equated to “noload,” and we will have 
our test. 


Nope. The value assigned to “‘noload”’ 
is nonrelocatable. If the value substituted 
for ‘“‘operand”’ is relocatable, the IF state- 
ment will produce an error message, be- 
cause we are trying to mix relocatable and 
nonrelocatable values in one expression. 

Oh dear, are we stumped? Not for 
long. A careful reading of the rules for 


the substitution of macro operands into 
macro parameter names reveals an out. 


If a macro operand is coded with a 
leading percent sign, the assembler will 
evaluate it and substitute not the value 
with its attached attribute of relocatability, 
but a simple string of decimal digits. That 
leads us to the following relocation- 
stripping macro: 


unrel macro operand 


@unrel set operand 
endm 
It does nothing but store the value it was 
given in a global name. The trick is in how 
it is used. Within our main macro, where 
we want to compare for the value of 
keyword, we now write 
unrel %operand 
if @unrel ne noload 


push d 
lxi d,operand 
endif 


The percent sign strips the attributes 
from “‘operand.’’ Whatever happens to be 
substituted for it, be it a relocatable label 
or not, the value assigned to “@unrel’’ 
is a simple constant. That can be compared 
to the equated value of ‘‘noload’”’ with- 
out error. The full treatment ends up as: 

some macro operand 

if not nul operand 
unrel Zoperand 


if @unrel ne noload 


push d 
Ixi d,operand 
endif 


else 
+++ operand required as 
address or ‘noload’ 
exitm 
endif 
dos CUS OU 
if @unrel ne noload 
pop d 
endif 
endm 
The user is forced to code some oper- 
and. If the operand is omitted, the invalid 
expression “+++”? forces the assembler 
to display the message line. In that line, 
the keyword is quoted. If it weren’t, 
the assembler would substitute for it, 
producing the error message ‘“‘operand 
required as address or 4398 1,” 43981 being 
the value Oabcdh equated to “‘noload.”’ 


DIR Not-Quite-So- Full 

CP/M Plus has an extensive DIR com- 
mand, one that can produce a wide variety 
of displays. It is very useful, but it is also 
a trifle verbose. When you ask for a full 
display, you get: 
a blank line 
a line, ‘‘Scanning Directory”’ 
another blank line 
a line, ‘‘Sorting Directory” 
another blank line 
column headings 
another blank line 
a line of dashes 
another blank line 


Then, finally, you see the display of 
files, sizes, timestamps, etc. These extra 
lines are unnecessary. Often they push off 
the screen previous commands that one 
would like to refer back to. 

We worked out how to stifle some of 
these lines. If you (the six of you that 
have CP/M Plus) would like to stifle them 
as well, you can do it this way. Load up 
DIR.COM under SID, using this sequence: 


rename dir.old=dir.com 
sid dir.old 


Check these five hex addresses for the 
given instructions: 


2091 CALL 30E2 
24F7 CALL 30E2 
2DFO CALL 272C 
2DF6 CALL 272C 
2E2D CALL 272C 


If your DIR.COM is the same as ours, 
that’s what you’ll find. The first two calls 
produce the “Scanning” and ‘Sorting’ 
messages and the blank lines that follow 
them, while the others produce blank lines 
around the heading. 

Replace each CALL with three NOP 
instructions, then write a new DIR file, 
using 


-—wdir.com 


Test the command. It should produce 
a more compact display. 


Without Fear or Good Taste 


Dear Reader, the ol’ mailbag is run- 
ning dry. What has your system done to 
surprise you lately? What has your oper- 
ating system done to disgust you, and how 
did you get even with it? Know any good 
puzzles? Gotta have input, gotta get some 
of the cobwebs off the chairs in the 
waiting room at the old Clinic. 

Hey, I know, let’s have a contest! 
(Picture Mickey Rooney: “Hey, gang, I 
know — we’ll put on a show!”’) Sure. Let’s 
hold the first (and last) annual ZOSO 
sound-alike contest. Surely you remember 
ZOSO, the vile-tempered person who used 
to hold forth with outrageous, near- 
libelous, dead-accurate opinions on the 
old CPMUG disks? 

If you can’t think of anything else 
to write about (puzzles, system discoveries, 
perils and pitfalls), then send us your best 
imitation of ZOSO: a page of scornful, 
acerbic, sneering commentary on some as- 
pect of the personal-computer scene. 
We’ll print the best ones that our lawyer 
will approve. You'll feel much better 
afterward. 


BBL 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 191. 
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CP/M on the Commodore 64 


Including Two BIOS Modifications 








After the recent outcry about the correct 
spelling of the word kernel, we thought it 
interesting that the documentation for 
the Commodore 64 spelled the word 
kernal Because this article refers to the 
Commodore ‘‘kernal’’ specifically, we 
have decided to use Commodore’s spell- 
ing in this instance. — Ed. 


tial to become one of the least ex- 

pensive “real” computer systems 
available. Although most people know 
that the C-64 has a poor version of 
BASIC and that the OS doesn’t really 
qualify as an operating system, not as 
many people know that they don’t have 
to be a captive of Commodore’s firmware. 

The C-64 contains 64K of real RAM. 
Some of it is hidden under the ROM that 
holds the BASIC and the ROM that 
holds the OS kernal, but any program can 
switch out both of these ROMs to give 
access to the RAM underneath. Com- 
modore is marketing a CP/M package for 
the C-64 that takes partial advantage of 
this hidden RAM by switching out the 
BASIC but leaving the OS I/O kernal 
switched in. Their implementation results 
in a computer that can run a 48K version 
of CP/M 2.2 (Although it is not the 
subject of this article, I’m convinced that 
a larger version of CP/M is possible with a 
rewrite of the BIOS.) 

The CP/M package, which is similar 
in concept to the CP/M for the Apple, 
consists of a Z80 co-processor that plugs 
into the expansion port on the back of 
the keyboard and a CP/M system dis- 
kette. When the C-64 is running CP/M, 
the Z80 and the C-64’s native processor 
(the 6510) take turns running out of the 
common memory. The 6510 becomes a 
slave processor; the Z80 turns it on when- 
ever it requires I/O. Communication 
between the two processors is through 
data and commands left in memory. As 
with all other CP/Ms, only the BIOS is 
customized for the Commodore; the 
BDOS is not aware of the existence of 
the 6510. 


Te Commodore 64 has the poten- 


by Walt Piotrowski 


Walt Piotrowski, R. D. 1 Box 582, Afton, 
NY 13730. 


The CP/M system is started with the 
C-64 running in its native mode. After 
plugging the CP/M cartridge into the back 
of the C-64, the user loads a CP/M boot 
program, called CPM, from the system 
diskette just as if it were a BASIC pro- 
gram. This boot program, called BOOT65 
in the Commodore CP/M manual, loads 
in two other routines. The first is the 
6510 portion of the BIOS (BIOS65), and 
the second is a Z80 boot routine (BOOT- 
80). Once both routines are in place, 
BOOT6S switches on the Z80, and from 
this point on the Z80 is in charge. The 
Z80 boot routine loads in the Z80 por- 
tion of the BIOS (BIOS80) and the rest 
of CP/M. 

The interface between the two parts 
of the BIOS is very nicely designed and 
very clean. Ten memory locations serve 
as a communication region, and a 256- 
byte buffer holds a full C-64 disk sector. 
When the Z80 part of the BIOS needs 
some physical I/O, it puts the required 
command information in the communica- 
tion area (locations $900-$90A in the 
6510 address space), switches itself off, 
and turns the 6510 on. The 6510 picks 
up the command, does what is required, 
then switches back to the Z80. The hard- 
ware is arranged so that both computers 
resume execution at the instruction fol- 
lowing the instruction that performed the 
switch (plus one byte). 

Because both processors required 
access to a set of low-numbered memory 
addresses to function reasonably, the 
address spaces in the two machines are 
offset from each other. The 6510 keeps 
its low memory data in the location ad- 
jacent to the “‘real’’ zero memory loca- 
tion. As shown in Figure 1 (page 15), the 
zero memory location for the Z80 is 
actually at location $1000 in this 6510 
address space. Because of the offset of 
$1000, the communication area at $900 
in the 6510 address space is at location 
$F900 in the Z80 space (see Figure 2, 
page 15). In other words, $1000 is 
added to every Z80 address; hence, a Z80 
access to $F900 yields $0900, and a Z80 
access to $0000 reaches $1000. 


Adding a Second Drive 


I get the impression that Commodore 
rushed to market with CP/M. The soft- 
ware and the documentation both have 
some shortcomings. The biggest problem 
is that the BIOS can communicate with 
only one disk unit. It can talk to both 
drives in a Commodore 4040 unit or to 


the single drive in a 1541, but it cannot 
communicate with two or more 1541 
drives. If you have a 1541, you can still 
use an A and a B “drive” in CP/M, but 
each time you switch between A and B, 
you have to swap diskettes in and out of 
a single 1541. The software in the BIOS 
always tells you when the swap is re- 
quired. I have two 1541s, however, and I 
quickly became annoyed with diskette 
swapping in one of them while the other 
sat unused. What I did about it follows. 

The manual supplied by Commodore 
contains complete listings of all of the 
Z80 code for CP/M, but it does not con- 
tain listings for any of the 6510 code. 
The Z80 listings are well commented and 
easy to read. Because of this and because 
of the cleanliness of the interface between 
the two parts of the BIOS, I was able to 
follow the 6510 code with the use of a 
disassembler. 

The changes that I made to allow 
CP/M to use two 1541 drives are rela- | 
tively simple. They are so simple that I 
am surprised that Commodore did not 
include this capability in the original 
package. These modifications are shown 
in Listing One (page 18). The first four 
sections of this listing are patches that 
replace some of the original BIOS65 
code. The last sections are small addi- 
tional routines that are called by the 
patches; they fit in a section of memory 
reserved for the BIOS but actually unused. 


The first patch routes the processing 
of all BIOS65 commands from the Z80 
through the new routine called TESTIT. 
This routine checks to see if the com- 
mand is a disk operation. If it is, the 
routine compares the drive number in the - 
command with the drive number that was 
accessed on the last disk command. If 
they are the same, control returns to 
BIOS6S. If they are different, the routine 
just closes the disk channels then returns 
control to BIOS65. BIOS65 discovers 
that the channels are closed when it at- 
tempts to communicate with the disk and 
tries to reopen them. The last two patches 
route the open requests through the 
new routines called OPEN15 and OPEN2, 
which open the channels to the correct 
disk. The changes make minimal impact 
on the original program. All of the disk 
errors that are detected and reported 
back to CP/M still function as they did 
originally. 

A bigger part of the problem was 
coming up with a way to make the 
changes permanently on a CP/M diskette. 
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Since my 6510 assembler and loader do 
not run under CP/M, I chose to make all 
of the changes on the 6510 in its native 
mode. This required writing a utility pro- 
gram to read the 6510 code from the 
diskette and to replace it, once it had 
been modified, back in the same sectors. 
This utility turned out to be longer than 
the changes themselves, although it was 
easier to write because I didn’t have to 
explore someone else’s machine language 
code first. 

The utility (CPM65UT) is provided 
in Listing Two (page 19). The utility 
does not have the capability to make 
Changes; it simply reads the 6510 code 
from the disk or replaces it. Therefore 
the utility must be used in conjunction 
with a loader or a machine language 
monitor. The 6510 code is read into 
memory by calling the utility at its read 
entry point ($C000). It reads BOOT65 
and BIOS65 into the locations where 
they normally reside (see Figures 1 
and 2). The loader or monitor is then 
used to make the modifications. After 
the changes have been made, the utility 
is called at its write entry point ($C003), 
and it writes the modified code back onto 
the disk. Its use with the loader in the 
Commodore Assembler Development Sys- 
tem is discussed at the end of this article. 


Adding a Serial Printer 


My printer is not a Commodore 
printer. It’s a DECwriter that I’ve had for 
several years; I modified it for RS-232 
operation when I bought the C-64. While 
I was modifying the BIOS for two-disk 
operation, I also made a change to incor- 
porate the DECwriter as the system 
printer. Listing Three (page 26) shows the 
changes to BIOS65 that make this substi- 
tution. The two changes, the one for the 
disks and the one for the RS- 232 printer, 
are completely independent; you can 
incorporate either of them separately or 
use both together. 

If you examine the Commodore 
CP/M manual, you will find that Com- 
modore provides two _ user-definable 
functions in the interface between the 
Z80 and the 6510 parts of the BIOS. 
They also leave two 256-byte areas in 
the space reserved for BIOS65 to allow 
room for the 6510 code that you will 
write for these functions. Because I 
wanted to use all of the 48K bytes of 
memory that are available for CP/M pro- 
grams and because I had no plans to 
implement any user functions, I moved 
the Commodore kernal’s RS-232 buffers 
into one of these areas. Their normal 
location would have decreased the space 
available to CP/M by 4K bytes. If you 
choose to make the changes the same 
way I have, you will not be able to use 
the second user function in any program 
that also uses the printer. 
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Although it is unlikely, the possibil- 
ity exists that more than one version of 
Commodore’s CP/M is in circulation. 
Therefore, I’ve included comments in the 
two-disk modification to show the 
original memory contents for each of the 
four small patches. If you decide to make 
the changes, be sure to compare what is 
in your memory with what the listing 


says should be there. If you find a dif- 
ference and need some help, please let me 
know and I'll do all I can to assist you. If 
you decide to make the RS-232 modifi- 
cation, you should note that it is a large 
patch that completely overlays the 


printer code in the BIOS. If you find 
that the disk patch locations match up, 
you should be able to make the RS-232 


Figure A 


“Load Areas for BIOS65 and BOO T 


Communication Area* 


Common Disk Buffer 





| 65 








"Same Area during 4, CP/M Operation a _. 
(with RS-232 Mod) | 


: *Only six of oi 256 locations are actually used. 








15 





change easily. If you have a problem, 
again I will be happy to help out. 

After you have made the changes to 
the BIOS, you must run the CONFIG 
program that is located on the CP/M 
diskette. If you have made the disk drive 
changes, you should change to a two- 
drive configuration. The modifications 
made to the BIOS will allow you to 
change back and forth at any time. If 
you have CP/M configured for two drives, 
the program will access drives 8 and 9; if 
you have CP/M configured for one drive, 
the program will use drive 8 in the 
diskette swapping mode. (It is also pos- 
sible to use more than two 1541 drives 
by making a minor change in BIOS80.) 
If you have made the RS-232 change, 
















If you own a CP/M compatible 
operating system, you’ve had to put up 
with the mistakes and quirks of 
someone else’s programming. Until 
now. Now you can see the light with 
MRS/OS. In fact, MRS is a full operating 
system designed to replace CP/M 2.2 
or CDOS and it comes with complete 
source code. MRS is designed for Z80 
processors, runs CP/M software, and 
can interface directly to a CP/M BIOS, 
saving you a lot of sysgen time. 


= 


| 
Orders: 9 am - 10 pm EST 
Tech. inquiries: 7 pm - 10 pm EST 
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HAS CP/M 
LEFT YOU IN 
THE DARK? 


With the MRS/OS Source Code, you can see the light. | 





CP/M is a registered trademark of Digital Research Corp. CDOS is a registered trademark of Cromemco Corp 


you should use CONFIG to change the 
CP/M configuration so that BIOS80 
thinks that you have the Commodore 
4022 printer. If you leave it configured 
for the 1525 printer, BIOS80 makes a 
conversion from the ASCII character set 
that is used by CP/M to the 1525’s char- 
acter set. 

You should be cautious about two 
things if you decide to buy Commodore’s 
CP/M. The first is memory size. If you 
look through the CP/M Software Finder, 
you will find many programs that will 
run in 48K, but many also will not. All 
of the ones that I am now interested in 
fit in 48K, but this may not be true for 
you. The second is disk format. Com- 
modore’s 1541 disk format is unique, and 






All this for under sixty bucks. 


With MRS, you get more than what 
you pay for. For under sixty dollars you 
receive fully commented source code 
for standard and extended BDOS func- 
tions, a sample BIOS, our all-in-one 
utility package and a 150 page manual. 

So if you’re tired of being in the dark 
with some other guy’s program, here’s 
the answer to your prayers. 


$ 5 9? 2 complete 


(includes shipping & handling in 
N. America; overseas add $12 ) 
: Mass. orders include 5% sales tax 
| NC 16 Bowman Lane 
" Westboro, MA 01581 


(617) 366-8969 


the software supplier for the program 
that you are interested in may not have 
this format available yet. I believe that 
this is a temporary problem and that it 
will be solved as the suppliers begin to 
realize that there are a lot of C-64 
owners in the world. 

As a final note, there is also the pos- 
sibility of downloading public domain 
software from a bulletin board or another 
CP/M system using the inexpensive 
modems available for the C-64. I’m not 
aware of any software currently available 
for Commodore’s CP/M that will do 
that, but I would like to hear from you 
if you know of any. If not, it doesn’t 
look as if it would be that tough a pro- 
gram to write, making use of the user 
functions that are provided in the inter- 
face between BIOS65 and BIOS80. Any 
volunteers? 


Using CPM65UT with the 
Commodore Assembler 
Development System 


The Commodore Assembler Develop- 
ment System is a software package that 
contains an editor, an assembler, a ma- 
chine language monitor, and a loader, 
along with several other useful programs. 
The package contains two versions of 
the loader. The version called HILOAD- 
ER64 resides in memory at $C800 
(51200 decimal). If you have previously 
assembled the CP/M changes, you can 
load both the CPM65 utility and the 
loader into memory at the same time. 
You then execute the utility by typing 
SYS49152. The utility will read the 6510 
code into memory. When this is com- 
plete, you execute the loader by typing 
SYS51200. The loader will ask the name 
of the object file that you want to load. 
When loading is complete, you write the 
modified code back onto disk by typing 
SYS49155. 
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Don’t call her cheap. Call her beautiful. 


The Bonnie Blue’ 


Word Processing System for the IBM Personal Computer 


It’s obvious what makes her so cheap, but what makes 
Bonnie Blue so beautiful? Bonnie Blue is a new and easy-to-use 
word processing program for the IBM Personal Computer. 


The Full System. The Bonnie Blue System includes in one 
program a full screen Editor, a Printing module and a useful 
Toolbox. It includes the features you've come to expect, and 
more: 


complete cursor control: by character, word, line; page up and 
down instantly; go to top, bottom of document; auto scroll 
towards top or bottom 

word wrap 

margin justification, centering 

adjustable margins, tabs, indents 

reformat paragraphs 

move, copy, delete, paste blocks 

find with delete, insert, replace and wild card characters 

keyboard remapping 

multi-line headers, footers 


Bonnie Blue can handle lines longer than the screen is wide, 
by horizontally scrolling the line. And, unlike some programs, 
Bonnie Blue lets you include any displayable character in your 
text, such as block graphics and foreign language characters. 


Unique Features. With Bonnie Blue, you can “paint” 
display attributes onto your text, by the character, word, or 
line, or automatically as you enter text. With the monochrome 
adapter, you can paint any combination of underlined, bold, 
reverse video or blinking. With an 80 column monitor and the 
color/graphics adapter, this translates into a palette of 16 color 
combinations to choose from. And if your computer has both 
monitors, Bonnie Blue lets you use them both, shifting back 
and forth as you wish. 


IBM Personal Computer is atrademark of |BMCorp. Epson Graftrax Plus is a trademark of Epson America Inc. 


[] Send me the Bonnie Blue System. | am 
enclosing $50 (NY State residents please 
add 7% sales tax). 


[] Checkenclosed (] VISA () MasterCard Sorry,noCOD. 


€ Offi 
Bonnie Blue Software (e2cisters%, 
(] Please send literature. 
lhavea 








Powerful Printing Module. You can use these colors or 
display attributes to highlight text on the screen, and Bonnie 
Blue can remove them from a file when you want (all files 
created by Bonnie Blue are DOS standard). The Printing 
module understands these text attributes, and you can map 
them into any single printer function or combination. 

For example, normally you would want underlined text to 
print underlined. But you can tell Bonnie Blue to print 
underlined characters as both underlined and bold. Bright text 
on the screen can mean double struck, or emphasized and in 
italics. You are at the controls. 

The first Print formatting module supports all the text 
capabilities of the Epson MX series with Graftrax Plus. By the 
time this ad appears, we will be supporting other popular 
dot-matrix and letter quality printers. 

More than thirty “dot’’ commands give you added control of 
the format of your finished document. You can send it to a disk 
file instead of the printer, or preview the final page formatting 
on the screen. 


Toolbox. The Toolbox is a set of useful functions, called 
“filters” that allow you to extract information from your files 
and transform their content. With these tools, you can join 
files together, sort lines of text, count words, find and 
substitute patterns, etc. Writers and programmers find this a 
useful collection of productivity enhancers. 


Bonnie Blue is also great for a hard disk system. A thorough 
User's Guide, complemented by help screens and roadmaps, 
make the Bonnie Blue an exceptionally easy-to-learn and 
easy-to-use system. 

Order yours today, or send for our free brochure. Bonnie 
Blue is available exclusively from Bonnie Blue Software, 
P.O. Box 536, Liverpool, NY 13088. 





Minimum 
recommended system: 





Hg abe eigke IBM PC, 128K, 2 disk drives, 
Signature PC-DOS 1.1 or 2.0, 80-column 

monitor or monochrome adapter, 
Name or both, Epson MX-80 or 
Address MX-100 with Graftrax Plus. 
City______________________ State ~~ Versions available soon for PCjr. 
Company Write for details. 
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Circle no. 7 on reader service card. 


CP/M an the Commodore 64 (Text begins on page 14) 


Listing One 


CPMDSK.TX. 

LINE# LOC 

00001 9000 
00002 0000 
00003 0000 
00004 0000 
00005 0000 
00006 0000 
00007 0000 
00008 0000 
60009 0000 
00010 0000 
00011 0000 
00012 0000 
00013 0000 
00014 0000 
00015 0000 
60016 0000 
00017 0000 
00018 OA06 
00019 OAD? 
00020 OA0? 
00021 OAFEB 
00022 OAFC 
00023 OAFD 
00024 OAFE 
00025 OAFE 
00026 ORC 
00027 OB9F 
00028 OBAO 
00029 OBAL 
00030 ORA2 
00031 OBA? 
00032 ORBRS 
00033 ORR9 
00034 OFFA 
00035 OBER 
00036 OBKC 
00037 OBBC 
00038 O0C90 
00039 0C92 
00040 0C95 
00041 O0C98 
00042 0C99 
00043 OC9RB 
00044 oOC9C 
00045 OC9E 
00046 OC9F 
00048 OCAO 
00049 OCA2 
00050 OCAS 
00051 OCA8 
00052 OCA9 
00053 OCAR 
00054 OCAC 
00055 OCAE 


CODE 


RO 


70 


AQ 


OF 
C3 
04 
08 


OF 


oc 


oc 


oc 


FF 
09 


RP 
O? 


LINE 


YOOOOOO OOO OOOO OOOO OO OOOO OOO IGOR GIO IO IORI 


MODIFICATIONS TO BIOQS6S FOR 
TWO 1541 DISKS (8 AND 9%) 


W.G., FIOTROWSKI 
STATE UNIV OF NY 
BINGHAMTONys NY 13901 


a 
y 
* 
y 
4 
y 
a 
y 
a 
¥ 
a 
sf 
4 
y 
* 
y 
a 
y 


SOOO KK OK KOKO OK KK KKK KK OK KK KKK KK KK KK KK 


ee 
RIOS65 =$0A0C 
COMAND =$0900 


yBIOS RETURN LOC 
¥COMMAND LOC 


NISKNO =$0904 yDISK NUM LOC 
CLOSE =$FFCS3 yKERNAL CLOSE ROUTINE 
3 
K=$OA0G yCHECK FOR DISK OFS 
JSR TESTIT yWAS JSR SOAOC 
‘ | 
K=$OAFE yREMOVE DISK NUM STORE 
NOF yWAS STA $0OB67 
NOF ; : ° 
NOF y i . 
k=$0B9C BIOS TRYING TO OFEN 15 
JSR OFENLS WAS LIA #15 
NOF 9 LUX #8 
NOF ’ LOY #15 
NOF 
y 
K=SOBRSG yBIOS TRYING TO OFEN 2 
JSR OFEN2 yWAS LIA #2 
NOF ° LIX #8 
NOF 5 LOY #2 
NOF 
y 
K=$C90 sFREE SPACE IN BIOS AREA 
OPENIS LOA #15 »>COMMAND CHANNEL 
JSR CLOSE yCLOSE~-JUST IN CASE 
LOA DISKNO ¥GET DISK NUM 
CLC ySET UP FOR ADD 
ANC #8 yMAKE 8 OR 9 
TAX ,UEVICE # IN X 
LOA #15 yCHANNEL IN A 
TAY yALSO IN Y 
RTS GO BACK-CALL SETLFS 
OPEN2 LIA #2 >DATA CHANNEL 
JSR CLOSE yCLOSE~JUST IN CASE 
LDA DISKNO yGET NISK NUM 
CLC ySET UP FOR ADD 
AIC #8 *yMAKE 8 OR 9 
TAX yDEVICE # IN X 
LDA #2 *CHANNEL IN A 
TAY yALSO IN Y 


ETE Cate ri ee ane RR LT ic SSSR SASRE RRC RRS REAP tas aOR AE SNES SE Me ces A Rely RR cere Re ae 
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000356 OCAF 60 
00057 OCRO 
000358 OCRO 
00059 OCRO A}l 
00060 OCES FO 
00061 OCBS C9 
00062 OCE7 FO 
00063 OCR9 C9 
00064 OCKE [Id 
00065 OCB ADL 
00066 OCCO Cn 
00067 OCC3 FO 
00068 OCCS sh 
00069 OCCS A? 
00070 OCCA 20 
00071 OCCh Ag? 
00072 OCCF 2 
00073 oOCh2 4C 
00074 oOCrs 
00075 oOCcnsS 00 
00076 OCDS 
ERRORS = 00000 
SYMBOL TABLE 
SYMBOL, VALUE 
BIOS6S OAOC 
DISKNO 0904 
OPEN2 OCAO 


END OF ASSEMBLY 


Listing Two 


CPM6SUT.TX. 
LINE# LOC 

00001 0000 
00002 0000 
00003 0000 
00004 0000 
00005 0000 
00006 0000 
00007 0000 
00008 0000 
00009 0000 
00010 0000 
OO011L 0000 
O0012 0000 
00013 0000 
00014 0000 
00015 0000 
000146 0000 
90017 0000 
00018 0000 


CONE 


00 
08 
O1 
O4 
06 


04 
0S 
On 
DS 
OF 
C3 
02 
C3 
oc 


; 
09  TESTIT 
09  CLOSIT 
OC 
OC 
FF 
FF 
OA  — LEAVE 
; 
LSTISK 
CLOSE = FFC3 
LEAVE = Ocn2 
TESTIT  OCRO 
LINE 


“S> “Ge “SP “SP “GP “E> “Se GS KP Ve Wh Sr We Se Wh wed 


CMIICHN 
DATCHN 


RTS 


LIA 
BEQ 
CMF 
REQ 
CMF 
BNE 
LDA 
CMF 
BEQ 
STA 
LOA 
JSR 
LIA 
JSR 
JMF 


COMAND 
CLOSIT 
#1 
CLOSIT 
#6 
LEAVE 
HISKNO 
LSTOSK 
LEAVE 
LSTOSK 
#15 
CLOSE 
#2 
CLOSE 
BIOS6S 


FEeYIE © 
«END 


CLOSIT 
LSTOSK 


QISK DRIVE # AT $0006 


EQUATES 


=15 


2227 
ae 


9GO BACK-CALL SETLFS 


9SEE IF BISK COMNI! 
7O IS DISK Cmr 


y1 IS DISK Cmp 

96 IS DISK CMD 

?>NOT FOR DISK-EXIT 
°GET CMD DISK 
yCOMPARE WITH LAST USE 
ySAME-LET GO 

7D IFF-SAVE FOR NEXT 
¥COMMANDI CHANNEL 
gCLOSE IT 

7TIATA CHANNEL. 

*CLOSE IT 

yRIOS WILL OPEN AGAIN 


OCBIi 
ocns 


COMANT 
OPFENLS 


0900 
OC9O 


End Listing One 


COCO OOOO OOOO OOO OOOO KK 


UTILITY FROGRAM TO READ OR WRITE 
THE 6510 FORTION OF THE CFM BIOS 
AND THE 6510 CFM BOOT ROUTINE 


We. FIOTROWSKI 
TO READ - JSR $CO00 9YSC49152) 
TO WRITE ~ JSR $C003 SYS(49155) 


(491358) 


OOOO OOOO OOOO OOO OK OK KOK 


7UISK COMMAND! CHANNEL 
70ISK DATA CHANNEL 


(Continued on next page) 
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CP/M on the Commodore 64 (Listing Continued, text begins on page 14) 


Listing Two 


00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00026 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
000490 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00051 
O0052 
00053 
00054 
00035 
00056 
000357 
00038 
00059 
00060 
00061 
00062 
00063 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
C000 
C000 
C000 
C000 
C003 
C006 
C007 
COO? 
C009 
COooc 
COOF 
Coll 
C014 
C014 
CO14 
CO14 
CO1S 
CO17 
COLA 
COR 
CO1E 
CO20 
C023 
C026 
C026 


78 
A? 
AE. 
A8 
29 
A? 
29 
29 


AY 


OF 


OF 


00 
v7 
14 
O1 
a7 


OF 
06 


RA 
OO 
Bri 
CO 


O02 


CO 
CO 


Ci 
CO 


Cl 


CO 


FF 


FF 
FF 


ZERO =$ 30 

ONE = 3] 

TWO = 32 

CR = $1 

bd 

SETLFS =$FFRA 

SETNAM =$FFRI 

OPEN =$F FCO 

CLOSE =SFFCS 

CHRIN =8$FFCS6 

CHKOUT =$FFC9 

CLRCHN =$FFCC 

CHRIN =$FFCF 

CHROUT =$FFII2 

y 

FREKZ1 =$FE 

FREKZ2 =FREKZ1+2 

BOOTS6S =$801 

RUF = $9OO 

BTSTRT =#904 

RIOS65S =#A00 

BOOTLN =BIOS65-BTSTRT 

bd 

8 MACKO DEF 

y 
LOX #271 
LOY #271 
SIX Ta 
St to rett 
»MNDED 
K=$C000 


? ENTRY FOINTS 
P 


TART 


“ep 


JMF 
JMF 


REAL 
WRITE 


sBYTE: ¥ 


LIA 
STA 
JMF 
LDA 
STA 


OFEN 


SET 
LTA 
LOX 
TAY 
JSR 
LTA 
JSR 
JSR 


LIA 


#0 
INOUT 
START 
#1 
INOUT 


yASCII ZERO 
yASCII ONE 
yASCII TWO 
yASCII RETURN 
KERNAL ROUTINES 


R 


> “Gp wr “Sr “Oh > “SEP SP SP 
me od a tJ 2 * 3 


P>FREE SPACE FAGE ZERO 
>» 4 LOCS AVATL 
NORMAL BOOTSS START 
sINFUT BUFFER START 
sROOTSS START IN BUF 
sRIOS6S LOAD ANDRESS 
SLENGTH OF BOOTS6éS 


»XFER ADDRESS 

°L.0 ORDER ADDRESS 
yHI ORDER ADDRESS 
ySAVE LO 

»SAVE HI 


¥ (49152) 
9 (49155) 
yDISK ORIVE # 


yREAL ~- ZERO 
ySET FLAG 

’GO TO MAIN FROG 
yWRITE - ONE 
ySET FLAG 


DISK CHANNELS 


#CMDCHN 


DISK 


SETLFS 


#0 


SETNAM 


OF EN 


#0ATCHN 


s>SHUT OFF INTERRUFTS 
»COMMANDT CHANNEL 
yDISK ADDRESS 


yKERNAL 
y>NO NAME 
yKERNAL 
y KERNAL 


yUATA CHANNEL 
(Continued on page 22) 
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SOFTWARE DESCRIPTIONS 


TPM (TPM lI) - $80 A 280 only operating system which is 
capable of running CP/M programs. Includes many features not 
found in CP/M such as independent disk directory partitioning for 
up to 255 user partitions, space, time and version commands, date 
and time, create FCB, chain program, direct disk |/0, abbreviated 
commands and more! Available for North Star (either single or 
double density), TRS—80 Model | (offset 4200H) or Il, Versafloppy 
|, or Tarbell |. 


TPM-Il- $125 An expanded version of TPM whichis fully CP/M 
2.2 compatible but still retains the extra features our customers 
have come to depend on. This version is super FAST. Extended 
density capability allows over 600K per side on an 8" disk. Availa- 
ble preconfigured for Versafloppy II (8” or 5"), Epson QX-10, 
Osborne Il or TRS-80 Model II. 


CONFIGURATOR | 
This package provides all the necessary programs for 
Customizing TPM for a floppy controller which we do 
not support. We suggest ordering this on single den- 
sity (8SD). 

Includes: TPM-II ($125). Sample PIOS (BIOS) SOURCE 
(SFREE), MACRO II ($100). LINKER ($80), DEBUG | ($80). 
QED ($150). ZEDIT ($50), TOP | ($80). BASIC | ($50) and 


BASIC II ($100) NOW $250 


$815 Value 


CONFIGURATOR II 
Includes: TPM-II ($125), Sample PIOS (BIOS) SOURCE 
(SFREE), MACRO II ($100), MACRO Ill ($150). LINKER 
($80), DEBUG | ($80), DEBUG I! ($100). ASAL ($200), QED 
($150), ZTEL ($80), TOP Il ($100). BUSINESS BASIC 
($200) and MODEM SOURCE ($40) and DISASSEMBLER 


($80) NOW $400 


$1485 Value 


MODEL | PROGRAMMER 
This package is only for the TRS-80 Model |. Note: 
These are the ONLY CDL programs available for the 
Model |. It includes: TPM | ($80), BUSINESS BASIC 
($200), MACRO | ($80), DEBUG | ($80). ZDDT ($40). ZTEL 
($80), TOP | ($80) and MODEM ($40) 

$680 Value NOW $ 175 


MODEL |i PROGRAMMER 
This package is only for the TRS-80 Model |. 
It includes: TPM-Il ($125), BUSINESS BASIC ($200). 
MACRO II ($100), MACRO III ($150). LINKER ($80). 
DEBUG | ($80), DEBUG I! ($100), QED ($150). ZTEL ($80). 
TOP Il ($100), ZDDT ($40), ZAPPLE SOURCE ($80). 












































DEVELOPER | 
Includes: MACRO | ($80), DEBUG | ($80). ZEDIT ($50). 
TOP | ($80). BASIC | ($50) and BASIC II ($100) 

$440 Value NOW 


DEVELOPER II - 
Includes: MACRO II ($100), MACRO II! ($150), LINKER 
($80), DEBUG | ($80), DEBUG !! ($100), BUSINESS BASIC 
($200), QED ($150), TOP II ($100), ZDDT ($40), ZAPPLE 
SOURCE ($80), MODEM SOURCE ($40), ZTEL ($80), and 
DISASSEMBLER ($80). 

NOW $350 


$1280 Value 


DEVELOPER Ill 
Includes: QSAL ($200). QED ($150), BUSINESS BASIC 


($200). ZTEL ($80) and TOP II ($100) 
$730 Value NOW $300 


COMBO 
Includes: DEVELOPER 1! ($1280). ACCOUNTING PACK- 
AGE ($300). QSAL ($200) and 6502X ($150) 



























$1930 Value NOW $500 


LINKER - $80. A linking loader for handling the linkable 
modules created by the above assemblers. 


DEBUG | - $80. A too! for debugging Z80 or 8080 code. 
Disassembles to CDL/TDL mnemonics compatible with above 
assemblers. Traces code even through ROM. Commands include 
Calculate. Display. Examine. Fill, Goto, List. Mode. Open File, Put. 
Set Wait. Trace. and Search. 


DEBUG II - $100. A superset of Debug |. Adds Instruction 
Interpreter. Radix change. Set Trap/Conditional display, Trace 
options. and Zap FCB. 


6502X - $150. A 6502 cross assembler. Runs on the Z80 but 
assembles 6502 instructions into 6502 object code! Similar features 
as Our Macro assemblers. 


QSAL - $200. A SUPER FAST 280 assembler. Up to 10 times 
faster than conventional assemblers. Directly generates code into 
memory in one pass but also to offset for execution in its own 
memory space. Pascal like structures: repeat...until. if..then...else. 
while...do. begin...end. case...of. Multiple statements per line. 
special register handling expressions. long symbol names, auto 
and modular assembly. and more! This one uses ZILOG Mnemonics. 


QED - $150. A screen editor which is both FAST and easy to 

learn. Commands include block delete, copy. and move to a 

named file or within text, repeat previous command. change. 

locate, find at start of line. and numerous cursor and window 

movement functions. Works with any CRT having clear screen, 

ro ig cursor, clear to end of line, clear to end of screen, and 
hea 







ZTEL - $80. An extensive text editing language and editor 
modelled after DEC's TECO. 


ZEDIT - $50. A mini text editor. Character/line oriented. Works 
well with hardcopy terminals and is easy to use. Includes macro 
command capability. 


TOP I - $80. A Text Output Processor for formatting manuals, 
documents. etc. Interprets commands which are entered into the 
text by an editor. Commands include justify. page number. head- 
ing. subheading. centering. and more. 


TOP Il - $100. A superset of TOP |. Adds: embedded control 
characters in the file. page at a time printing, selected portion 
printing. include/merge files, form feed/CRLF option for paging, 
instant start up. and final page ejection. 


ZDDT - $40. This is the disk version of our famous Zapple 
monitor. It will also load hex and relocatable files. 


ZAPPLE SOURCE - $80. This is the source to the SMB 
ROM version of our famous Zapple monitor. It can be used to 
create your own custom version or as an example of the features 
of our assemblers. Must be assembled using one of our assemblers. 


MODEM -Acommunication program for file transfer between 
systems or using a system as a terminal. Based on the user group 
version but modified to work with our SMB board or TRS-80 
Models | or Il. You must specify which version you want. 


MODEM SOURCE - $40. For making your own custom 
version. Requires one of our Macro Assemblers. 


DISASSEMBLER - $80. Does bulk disassembly of object 
files creating source files which can be assembled by one of our 


assemblers. 
HARDWARE 


S-100 — SMB Ii Bare Board $50, “System Monitor Board” for 
S-100 systems. 2 serial ports, 2 parallel ports, cassette inter- 
face, 4K memory (ROM, 2708 EPROM, 2114 RAM). and power 
on jump. When used with Zapple ROM below. it makes putting 
a S-100 system together a snap. 

Zapple ROM $35, Properly initializes SMB !/Il hardware. pro- 
vides a powerful debug monitor. 

IBM PC — Big Blue 280 board $595, Add 280 capability to your 
IBM Personal Computer. Runs CP/M programs but does not 
require CP/M or TPM. Complete with Z80 CPU. 64K add on 
memory, serial port, parallel port, time and date clock with 
battery backup, hard disk interface, and software to attach to 
PC DOS and transfer programs. Mfr'd by QCS. 

50% Discount on all CDL software ordered at the same time as 
a Big Blue (and for the Big Blue). 

APPLE I! — Chairman 280 $345, Add 280 capability to your 
Apple II/ll Plus computer. Runs CP/M programs with our 
more powerful TPM. Includes 64K memory add on (unlike the 
competition this is also useable by the 6502/DOS as well as 
the 280), TPM, QSAL assembler, QED Screen Editor. and Busi- 
ness Basic. Mfr'd by AMT Research. 

Apple Special $175, Buy the Apple Z80 Developer at the same 
time as the “Chairman” and pay only $175 instead of $325. 


APPLE Z80 DEVELOPER 
Includes: 6502X ($150), MACRO 1! ($100), MACRO II 


($150), QSAL ($200), QED ($150), LINKER ($80), DEBUG | 
($80), DEBUG |i ($100), ZDDT ($40) and BUSINESS 


BASIC ($200) | 
VALUE: $1250 NOW $325 


$175 when purchased with AMT “Chairman” Board 












MODEM ($40), MODEM SOURCE ($40) and DISAS- 


SEMBLER ($80) NOW $375 


$1445 Value 


DISK FORMATS 


When ordering software specify which disk format you would like. 


CODE DESCRIPTION 
8SD 8" IBM 3740 Single Density (128 bytes/26 sectors/77 tracks) 






ORDERING INFORMATION: © 
VISA/MasterCard/C.0.D. ee 
Call or Write With Ordering 








BASIC I - $50, a 12K+ basic interpreter with 7 digit precision. 80D 8” Double Density (256 bytes/26 sectors/77 tracks) Information... 

BASIC II - $100, A 12 digit precision version of Basic |. 8XD 8” CDL Extended Density (1024 bytes/8 sectur/77 traceks - 616K) OEMS 

BUSINESS BASIC - $200. A full disk extended basic with er . ; , 
random or sequential disk file handling and 12 digit precision SSD 9.25" Single Density (TRS80 Model |, Versafloppy |. Tarbell I) Many CDL products are available for 
(even for TRIG functions). Also includes PRIVACY command to SEP 5.25" Epson Double Density Vian 

protect source code. fixed and variable record lengths. simultane- 5PC 9.25" IBM PC Double Density licensing to OEM’s. Write to Carl 

ous access to multiple disk files, global editing, and more! 5X 5.25" Xerox 820 Single Density Galletti with your requirements. 
ACCOUNTING PACKAGE - $300. Written in Business 50S 5.25” Osborne Single Density is 

Basic. Includes General Ledger. Accounts Receivable/Payable. 5ZA 5.25” Z80 Apple (Softcard compatible) Dealer Inquiries Invited. 


and Payroll. Set up for Hazeltine 1500 terminal. Minor modifica- 


tions needed for other terminals. Provided in unprotected source TPM INFO When ordering TPM | or Il. in addition to Disk Format. please specify one of the following codes: 


form. CODE DESCRIPTION 

MACRO | - $80. A Z80/8080 assembler which uses CDL/TDL TPM I: NSSD/H North Star Single Density for Horizon 1/0 

mnemonics. Handles MACROs and generates relocateable code. NSSD/Z ~=North Star Singte Density for Zapple 1/0 

Includes 14 conditionals, 16 listing controls, 54 pseudo-ops. 11 NSDD/H North Star Double Density for Horizon 1/0 For Phone Orders ONLY Call Toll Free... 


(Except Pa.) 


arithmetic /logical ops, local and global symbols. linkable module 
generation, and more! 


MACRO II - $100, An improved version of Macro | with 
expanded linking capabilities and more listing options. Also inter- 


NSO00/Z North Star Double Density for Zapple |/0 
TRS80-1 TRS-80 Model | (4200H Offset) 
TRS80Il =TRS-80 Model II 


1-(800) 458-3491 


Ask For Extension #15 


nal code has been greatly improved for faster more reliable vis Versafloppy | 8" : 

operation. Vis Versafloppy | 5.25 : For information and Tech Queries call 
MACRO III -$150. Anenchanced versionof Macroll. Internal § TPM-I:  VII8 Versafloppy II 8 (x ) 

buffers have been increased to achieve a significant improvement Vil5 Versafloppy II 5.25 (609) 099-21 46 

in speed of assembly. Additional features include line numbers. TRS80ii =TRS-80 Model Il (XD) 


cross reference. compressed PRN files. form feeds. page parity. 
additional pseudo-ops. internal setting of time and date. and 
expanded assembly-time data entry. 


Prices and Specifications subject to change without notice. ’ 
TPM. 280. CP/M. TRS80 are trademarks of CDL. Zilog, DRI and Tandy respectively. 


Computer Design Labs 
342 Columbus Avenue/Trenton, NJ 08629 = 


Circle no. 11 on reader service card. 








CP/M on the Commodore 64 (Listing Continued, text begins on page 14) 


Listing Two 


00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 


00107 
00108 
00109 
00110 
oo111 
00112 
00113 
00114 
OO11%5 
Oo0121 
00127 
00128 
00129 
00135 
00136 
00137 
00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00153 
00159 
00160 


22 


AE 
AS 
20 
AY 
A2 
AO 
29 
20 


O06 


BA 
O1 
J 
C1 
Bi 
CO 


A? 
Sit 


30 
4A 
05 
Sr 54 
Alt 57 
06 
20 KO 
4C 33 
20 SF 


AY O02 
290 C3 
AY OF 
20 C3 


60 


AY Si 
BN 42 


A? 
20 


08 
O1 


A? 
29 


OB 
O1 


AD 00 
Bl FR 


CO 


Fr 


FF 
FF 


Cl 


Ci 
Ci 


CO 


CO 
CO 


FF 


PE 


Ci 


Cl 


Cl 
Ci 
Ci 


Cl 


L. [IX 
TAY 
JSR 
LOA 
L.Dx 
LOY 
JSR 
JSR 


“Sr “> > 


LTA 
STA 
LOA 
STA 
LIA 
REQ 
JSR 
JMF 
JSR 


WRAF UF 


[T} «> > ~e> 


LDA 
JSR 
LTA 
JSR 
CLI 
RTS 


XIT 


RISK 


SETLFS 


#1 


#<F TLNAM 
#>F ILNAM 
SETNAM 


OPEN 


#ZERO 


USRMSG6+9 


#5 


LOOFCT 


INOUT 
RII 
WRITI 
EXIT 
READTI 


ANT 


#0ATC 
CLOSE 
#CM0UC 
CLOSE 


+ 
+ 
RETURN 
HN 


HN 


yNISK ADDRESS 


» KERNAL. 

y;ONE CHARACTER 
7LO ADDRESS 
yHI ALNIRESS 
yKERNAL 

9 KERNAL. 


NAME 


SETUF FOR READ/WRITE LOOPS 


sFIRST SECTOR 
yRESET CMI MSG 
yFIVE SECTORS 
y INITIALIZE LOOF CTR 
,IN OR OUT? 

7IN - GO TO REAL 
sCALL WRITE SUBFROG 


NUMBER 


>CALL READ SUBPROG 


sDATA CHANNEL 
¥ KERNAL. 
¥ COMMAND 
y>KERNAL 
yINTS BACK ON 
»>MAIN FROG EXIT 


CHANNEL 


KKK READ FROM DISK *xx 


9 

9 

y 

9 READ LO 

? 

READIT LIA 
STA 


“a> 


XAL 
XAL 
LIA 
JSR 
XAD 
LOA 
JSR 


READ 


> 


JSR 


<> 


INC 
INC 
DEC 
BNE 


MOVE °C 


‘Sr Sr Se 


XAL 
XAL 
Loy 


OF - READ S SECTORS 

#ONE s;U1 IS AN INFUT Cn 
USRMSG+1 sFUT IN THE 1 

RUF »yFREKZ1 ¢BUF ADDR FOR INLP 
BRPMSGryFREKZ2 sDISK FTR RESET CMD 
#BPML 9MSG LENGTH 

CMDOUT ySEND IT 
USRMSGyFREKZ2 s0ISK READ CME 
#USRML. yMSG LENGTH 

CMDOUT ySEND IT 

INLP s;RRING IN THE DATA 
USRMSGt9 yFOINT TO NEXT SECTOR 
FREKZ1I+1 s;FOINT TO NEXT FAGE 
LOOFCT s;COUNT DOWN TO ZERO 
READ yNOT DONE 

PM" TO BASIC TEXT AREA 
BTSTRTsFREKZ1 #sSETUP TO MOVE BOOT65 
BOOTSS*sFREKZ2 § TO NORMAL AREA 

#0 yINITIALIZE LOOPCTR 


INMOV LIA (FREKZ1)*Y 


cee sill a ca ey eS ee 


‘GET BYTE 


Dr. Dobb’s Journal, June 1984 


00161 
00162 
00163 
00164 
00165 
00166 
00168 
00149 
00170 
00171 
00172 
00173 
00179 
00185 
00186 
00187 
00188 
00189 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198 
00204 
00210 
00211 
00212 
00213 
00214 
00215 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 


COA? 
COAY 
COAA 
COAB 
Coan 
COAF 
COBO 
CORO 
CORO 
CORO 
CORO 
CORO 
COB8 
Coco 
Coc2 
COoc4 
COCs 
COoCc7 
COocs 
COCA 
CG 
COcC 
COCC 
COcc 
COCE 
Conl 
Con 
Cong 
COE! 
COE3 
COES 
COES 
COE9 
COE9 
COF1 
COFS3 
COFS 
COFS 
COF9 
COFRB 
COFE 
C100 
ErO1 
C101 
C101 
C101 
C104 
C106 
C109 
C10B 
C1OE 
Ci1i0 
C113 
C114 
C115 
Ciiy 
CiiA 
CiiB 
C1iikB 
CiitB 
C1iik 
Ciin 
C120 
C1i22 


1 
C8 
98 


lio 
60 


A? 
Si 


A? 


20 


A2 
20 
AO 


29 


FI 


FC 
F&é 


00 
FR 
Fr 


FC 
Fé 


OR 
O1 


4A 
FC 
w4 


hg 


02 
Cé 
00 
CF 


2 Cl 


Cl 


Ci 


Ci 
Ci 


CI 


Ci 


FF 


Ci 


FF 


FF 


FF 


FF 


= > er e> er er 


STA 
INY 
TYA 
CMF 
BNE 
RTS 


(FREKZ2) 9 Y 


#BOOTLN 


INMOV 


yMOVE TO WORK AREA 
yLOOP CTR UP 

yINTO A FOR COMPARE 
yMOVED ALL? 

yNO-D1I0 NEXT 

yALL DONE ~- LEAVE 


XXX WRITE TO DISK xx 


LOOF TO MOVE RACK TO BUF 
RITIT XAQ BOOT6S»FREKZ1 sSETUP TO MOVE BOOT 
XAD BTSTRTyFREKZ2 ¢ BACK TO BUFFER 
LOY #0 yINIT LOOF CTR 
OUTMOV LIA CFREKZ1)*Y #GET BYTE 
STA (FREKZ2)*Y sFUT IN OUTBRUF 
INY yLOOP CTR UF 
TYA yINTO A FOR COMPARE 
CMF #BROOTLN yALL TONE? 
BNE OUTMOV yNO-D0 NEXT 
: 
y WRITE LOOP ~ WRITE 3S SECTORS 
’ 
LDA #TWO yU2 IS AN OUTPUT CMI 
STA USRMSG+1 yFUT IN THE 2 
: 
XAD BUF »FREKZ1 *BUF ADDR FOR OUTLF 
WRIT1 XAD BPMSG»yFREKZ2 sDISK PTR RESET CMn 
LOA #BPML. 9yMSG LENGTH 
JSR CMDOUT ySEND IT 
: 
JSR OUTLF sOUTPUT THE DATA 
9 
XAD USRMSG»yFREKZ2 sDISK WRITE CMn 
LOA #USRML. yMSG LENGTH 
JSR CMDOUT ySEND IT 
y 
INC USRMSGt+9 yFOINT TO NEXT SECTOR 
INC FREKZ1+1 sPFOINT TO NEXT FAGE 
DEC LOOFCT sCOUNT DOWN 
BNE WRITI yNOT DONE YET 
yALL DONE ~ LEAVE 


C} «> <> ~e 


CMDLF 


rt Se Se SP 


NLF 


INLF 1 


RTS 


SUBROUTINE TO OUTPUT CMD MSG 


MDUOUT STA 


LIX 
JSR 
LOY 
LIX 
LTA 
JSR 
INY 
DEX 
BNE 
JSR 
RTS 


MSGL 


#CMDCHN 
CHKOUT 


#0 
MSGL 


(FREKZ2) + Y 
CHROUT 


CMDLP 


CLRCHN 


§SAVE LENGTH 
¥COMMAND CHANNEL 
yOPEN FOR OUTPUT 
syPOINTER TO CHAR 
yNUM OF CHARS TO SEND 
*GET A CHARACTER 
7SEND IT 

yNEXT CHAR 

yLOOP CTR DOWN 
yNOT DONE —- NEXT 
¥KERNAL 


SUBROUTINE TO READ 256 BYTES 


LDIX 


LOY 


JSR CHRIN 


#DATCHN 
JSR CHKIN 


#0 


yDATA CHANNEL # 

s;0PEN FOR INPUT 

;BRUFFER INDEX & LOOP CT 

‘GET A CHAR (Continued on next page) 


eS. a en eee 
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CP/M on the Commodore 64 (Listing Continued, text begins on page 14) 


Listing Two 


00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
00282 
00283 
00284 
00285 
00286 
00287 
00288 


C125 
C127 
C128 
C1i2A 
Ci20 
CI2eE 
C1i2eE 
C1i2eE 
C1i2E 
C130 
C133 
C135 
C137 
C1i3A 
C138 
Ci3t 
C140 
C141 
C141 
C141 
Ci4i 
C144 
C145 
C148 
C14C 
C14C 
C150 
CiSi 
C153 
C154 
C154 
C155 
C156 
C157 
C158 
C1iss 


7t 
C8 
Lio 
29 
40 


Jo 
32 
20 
On 


42 
32 
20 
on 


00 


23 
00 


ERRORS = 00000 


SYMBOL TABLE 


SYMBOL VALUE 


BIOS6S OA00 
BPMSG Ci4C 
CHKOUT FFC9 
CLRCHN FFCC 
CR ooon 
FILNAM C156 
INLP1 C122 
MSGL C155 
OUTLF1 C135 
READ COé6C 
START C014 
WRIT1 Cong 
ZERO 0030 


END OF ASSEMBLY 


FR 


FS 
CC 


02 
C9 
00 
FR 
[2 


FS 
CC 


31 


30 


20) 


30 


FF 


FF 


FF 


FF 


3A 


BOOTS65S 
BTSTRT 
CHRIN 
CMDCHN 
DATCHN 
FREKZ1 
INMOV 
ONE 
OUTMOYV 
READIT 
TWO 
WRITE 


UTLF 


OUTLF 1 


SRMSG 


USRML 
BF MSG 


BPML 
LOOPCT 
MSGL 
FILNAM 
INOUT 


0801 
0904 
FFCF 
QOOOF 
0002 
OOF RB 
COAS 
0031 
COC2 
COSF 
0032 
COOF 


STA 
INY 
BNE 
JSR 
RTS 


(FREKZ1)9Y 


INLF1L 
CLRCHN 


yFUT IN BUFFER 

yNEXT SLOT 

$2546 CHARS IN A SECTOR 
SKERNAL CLEAR CHANNEL 


SUBROUTINE TO WRITE 256 BYTES 


LOX #DATCHN yDATA CHANNEL # 
JSR CHKOUT s,OPEN FOR OUTPUT 
LOY #0 yBUFFER INDEX & LOOP CT 
LOA (FREKZ1)*Y #sGET A CHAR 
JSR CHROUT ySEND IT 
INY ¥yNEXT CHAR 
BNE OUTLP1 3256 CHARS IN A SECTOR 
JSR CLRCHN yKERNAL CLEAR CHANNEL 
RTS 
DATA 
BYTE “U1: ’ sULS2 O11 
*+BYTE ZERO+DATCHN 
lpn) Ostids 
+BYTE CR 
=k-USRMSG 
BYTE ‘B-F2" 3R-P32 0 
«BYTE ZERO+DATCHN 
BYTE % OQ” 
»+BYTE CR 
=K-BPMSG 
BYTE O 
*+BYTE O 
*BYTE ’ #7’ 
BYTE O §IN=O» OUT=1 
eEND 
BOOTLN OOFC BRP ML 0008 
BUF 0900 CHKIN FFC4 
CHROUT FFI2 CLOSE FFCS 
CMDLP C1i0E CMDOUT C101 
DISK C006 EXIT COSS 
FREKZ2 OOFD INLP C118 
INOUT C157 LOOPCT C1iS4 
OPEN FFCO OUTLF Ci2e 
RO COSO0 READ C007 
SETLFS FFRA SE TNAM FFED 
USRML OOOB USRMSG C141 
WRITIT COBO XALD FEFF 
End Listing Two 


(Listing Three begins on page 26) 


eT Os acces oem eemeneame Cee 
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Before Johann Sebastian Bach developed 
a new method of tuning, you had to 
change instruments practically every time 
you wanted to change keys. Very difficult. 


Before Avocet introduced its family of 
cross-assemblers, developing micro-pro- 
cessor software was much the same. You 
needed a separate development system 
for practically every type of processor. 
Very difficult and very expensive. 


But with Avocet’s cross-assemblers, a 
single computer can develop software for 
virtually any microprocessor! Does that 
put us in a league with Bach? You decide. 


The Well-Tempered Cross-Assembler 


Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 3 years of actual 
use. Ask NASA, IBM, XEROX or the hun- 
dreds of other organizations that use them. 
Every time you see anew microprocessor- 
based product, there’s a good chance it 
was developed with Avocet cross- 
assemblers. 


Avocet cross-assemblers are easy to use. 
They run on any computer with CP/M”* 
and process assembly language for the 
most popular microprocessor families. 


514” disk formats available at no extra 
cost include Osborne, Xerox, H-P, IBM 
PC, Kaypro, North Star, Zenith, 
Televideo, Otrona, DEC. 


Turn Your Computer Into A 
Complete Development System 


Of course, there’s more. Avocet has the 
tools you need from start to finish to enter, 
assemble and test your software and finally 
cast it in EPROM: 


Text Editor VEDIT -- full-screen text edi- 
tor by CompuView. Makes source code 
entry a snap. Full-screen text editing, plus 
TECO-like macro facility for repetitive 
tasks. Pre-configured for over 40 terminals 
and personal computers as well as in user- 
configurable form. 


CP /Me-oo version .<...... cc... a6: 
CP/M-86 or MDOS version ....... $195 


(when ordered with any Avocet product) 


EPROM Programmer -- Model 7128 
EPROM Programmer by GTek programs 
most EPROMS without the need for per- 
sonality modules. Self-contained power 
supply ... accepts ASCII commands and 
data from any computer through RS 232 
serial interface. Cross-assembler hex ob- 
ject files can be down-loaded directly. 
Commands include verify and read, as 
well as partial programming. 


PROM types supported: 2508, 2758, 
#10, 2/40; 20ae,- Ll aes 2baek, 
27C32, MCM8766, 2564, 2764, 27C64, 
27128, 8748, 8741, 8749, 8742, 8751, 
8755, plus Seeq and Xicor EEPROMS. 









Avocet 
Cross-assembler 


Target 
Microprocessor 


XASM05 
XASMO9 


XASM48 
XASM51 


XASM68 


F8/3870 





XASM75 


Coming soon: XASM68K...68000 






(Upgrade kits will be available for new 
PROM types as they are introduced.) 


wreath sae as 98 
Options include: 
Software Driver Package -- 
enhanced features, no installation 


required. 

CP/M-80 Version. Yoo es. $ 75 
mM eC Version. (3 prey $ 95 
Pere: CaUIe hei. eee $ 30 
8748 family socket adaptor... $ 98 
8751 family socket adaptor... $174 


8755 family socket adaptor . . . $135 


G7228 Programmer by GTek -- baud 
to 2400 ... superfast, adaptive program- 
ming algorithms ... programs 2764 in one 
minute. 


rrograrimer . io. See ew Soe $549 


Ask us about Gangand PAL programmers. 


HEXTRAN Universal HEX File Con- 
verter -- Converts to and from Intel, 
Motorola, MOS Technology, Mostek, 
RCA, Fairchild, Tektronix, Texas 
Instruments and Binary formats. 


Converter, each version....... $250 


Circle no. 4 on reader service card. 


Lo KASM AGO oe Ba 
aa ae 
Lo PS78370 


XASM400 COP400 













CP/M-86 
i t80 IBM PC. MSDOS** 
Versions 















$200.00 
each 








$300.00 
each 


$500.00 


Call Us 


If you’re thinking about development sys- 
tems, call us for some straight talk. If we 
don’t have what you need, we'll help you 
find out who does. If you like, we’ll even 
talk about Bach. 


CALL TOLL FREE 1-800-448-8500 
(In the U.S. except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now 
available -- please specify. Prices do not include shipping and 
handling -- call for exact quotes. OEM INQUIRIES INVITED. 


* Trademark of Digital Research ** Trademark of Microsoft 


AVOCET 


SYSTEMS INC: 


DEPT. 684-DDJ 

804 SOUTH STATE STREET 
DOVER, DELAWARE 19901 
302-734-0151 TELEX 467210 








CP/M on the Commodore 64 (Listing Continued, text begins on page 14) 


Listing Three 
CPM232.1X. 

LINE# LOC CODE 
00001 0000 

00002 0000 

00003 0000 

00004 0000 

00005 0000 

00006 0000 

00007 0000 

00008 0000 

00009 0000 

00010 0000 

00011 0000 

00012 0000 

00013 0000 

00014 0000 

00015 0000 

00016 0000 

00017 0000 

00018 0000 

00019 0000 

00020 0000 

00021 0000 

00022 0000 

00023 0000 

00024 0000 

00025 0000 

00026 0000 

00027 0000 

00028 0000 

00029 OA9F 

00030 OA9F AE E2 
00031 OAA2 DO 26 
00032 OAA4 

00033 OAA4 

00034 OAA4 

00035 OAA4 

00036 OAA4 A2 O1 
00037 OAAS BSE E2 
00038 OAAS AY BO 
00039 OAAB AZ O2 
00040 OAAD AO FF 
00041 OAAF 20 BA 
00042 OAB2 A? 02 
00043 OAK4 A2 ES 
00044 OARS AO OA 
00045 OARS 20 BD 
00046 OABB 20 CO 
00047 OABE A2 00 
00048 OACO AO OF 
00049 OAC2Z 86 FP 
00050 OAC4S 84 FA 
00051 OAC& 86 F?7 
000352 OACS 84 FB 
00054 OACA 

00055 OACA 


OA 


OA 


FF 


FF 
FF 


LINE 


SOOO IK IK IO OK OK IK I KK RI KK 


S> @> SP 


> Sr “6> SP “> > “SP 


9 
SETLFES 
SETNAM 
OPEN 
CLOSE 
CHKOUT 
CLRCHN 
CHROUT 


7 

ENABL 
ROBUF 
RIBUF 


¥ 


er 


4 
9 
a 
9 


MODIFICATIONS TO BIOS6S 
FOR AN RS-232 PRINTER 


W.G. 


EQUATES 


=128 
=$FOO 
=$9O1 


= $FFBA 
=$FFBD 
= $F FCO 
=$F FCS 
=$FFC9 
=$FFCC 
=$FFD2 


=$2A1 
=$F9 
=$F7 
k= $A9F 


LOX ENTFLG 
BNE OUTCHR 


INITIAL ENTRY 
OPEN FILE AND MOVE BUFFER 


PENIT LOX #1 


STX ENTFLG 
LOA #FILE 
LUX #2 

LOY #$FF 

JSR SETLFS 
LOA #2 

LOX #<SET232 
LOY #>SET232 
JSR SETNAM 
JSR OFEN 

LOX #<BUF232 
LOY #>BUF232 
STX ROBUF 
STY ROBUF+1 
STX RIBUF 
STY RIBUF+1 


CHARACTER OUTPUT 


PIOTROWSKI 


OOO OOO OO OK RK 1K 1K KK KK IR KK KK KR 


7FILE NUMBER 
sNEW RS232 BUF LOC 
sCHAR BEING PRINTED 


sKERNAL ROUTINES 


er “rp Sr Sr SP SP 


9RS232 STILL ACTIVE 
7RS232 OUTBUF FTR 
9RS232 INBUF FTR 


s;SEE IF FIRST ENTRY 
sZERO ~- OPEN FILE 


;NOT ZERO MEANS ENTERED 
sFUT IN FLAG 

7FILE NUMBER 

gRS-232 DEVICE 

yNO COMMAND 

yCALL KERNAL 

TWO CHAR NAME 

7LO ADDRESS 

yHI ALDRESS 

yKERNAL 
y KERNAL 
yRBUFFER LO ADDR 
yBUFFER HI ADDR 
yKERNAL OUT BUF ADDR 
yHI ORDER PART 

yMOVE INBUF TOO 

ys JUST IN CASE 


— 
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7GET FILE NUM 

OPEN FOR OUTPUT 
yERROR MEANS CLOSED 
9GET CHARACTER AGAIN 
9 KERNAL 

sGET STATUS 

ySTILL RUNNING BIT 
yHANG UNTIL DONE 
yCLEAR CHANNEL 


yFIRST ENTRY FLAG 
#RS232 PARAMS 


FFC9 CHROUT FFD2 
O2A1  ENTFLG OAE2 
OAA4  QUTCHR OACA 
OAE3Z  SETLFS FFBA 


00056 OACA : 

00057 OACA A2 8O OUTCHR LUX #FILE 
00058 OACC 20 C9 FF JSR CHKOUT 
000S9 OACF BO INS BCS OPENIT 
00060 OADI AD O01 09 LOA CHAR 
00061 OAD4 20 D2 FF JSR CHROUT 
00062 OADI7Z AD Al O2 WAIT LOA ENARBL 
00063 OATA 29 O1 ANT #1 
00064 OADC DO FO BNE WAIT 
00065 OADE 20 CC FF JSR CLRCHN 
00066 OAE1 60 RTS 

00067 OQOAE2 9 

00068 OAEZ 00 ENTFLG .BYTE 0 
00069 OAES 86 SET232 .BYTE $8670 
000469 OAE4 00 

00070 OAES ® 

00071 OAES » END 
ERRORS = 00000 

SYMBOL TABLE 

SYMBOL VALUE 

BUF 232 OF OO CHAR 0901 CHKOUT 
CLOSE FFCS CLRCHN FFCC ENABL 
FILE 0080 OPEN FFCO OFENIT 
RIBUF OOF 7 ROBUF OOF9 SET232 
SETNAM FFBD WAIT OAD? 


END OF ASSEMBLY 


End Listing Three 





MOPI. 


The 
Define Your Own Instructions 
Assembler/Compiler 


(Universal Cross Assembler) 


MOPI is a unique software development system which combines 
familar and time-proven processes to create a new and truly effective 
approach to the challenge of software development. The functions of 
an assembler and compiler are combined into one efficient, stream- 
lined process with many added special features and an extensive set 
of utility programs. 

MOPI enables its users to develop their own customized 
languages, to meet the needs of any application, and to develop 
programs for any 8-bit microprocessor. 

It is simple enough for a beginning programmer, yet sophisticated 
enough to meet the needs of the most highly trained and experienced 
computer professional. MOPI is flexible enough to be adapted and 
enhanced as the user’s needs change or as Technology advances. 
















When standard assembly language is too difficult, time- 
consuming, or just too old fashioned, MOPI’s user-defined instruc- 
tion capabilities add flexibility and efficiency. 

MOPI software: $175 Manual: $30 
Currently available for CP/M with 64K memory. 
Inquire concerning availability on other systems. 

For more information and ordering instructions, write 


VOCS 
P.O. Box 3705, Minneapolis, MN 55403 


MOPI is a trademark of Voice Operated Computer Systems 
CP/M is a trademark of Digital Research Inc. 








Circle no. 74 on reader service card. 


RP/M._.. 


By the author of Hayden's "CP/M Revealed." 


New resident console processor RCP and _ new 
resident disk operating system RDOS replace CCP 
and BDOS without TPA size change. 


User 0 files common to all users; user number 
visible in system prompt; file size and user 
assignmentdisplayedby DIR; cross-drive command 
file search; paged TYPE display with selectable 
page size. SUBMIT runs on any drive with multiple 
command files conditionally invoked by CALL. An 
automatic disk flaw processing mechanism isolates 
unuseable sectors. For high capacity disk systems 
RDOS can provide instantaneous directory access 
and delete redundant nondismountable disk logins. 
RPMGEN andGET RPMautomatically self-install RP/M 
on any computer currently running CP/M® 2.2. 
Source pregram assembly listings of RCP and RDOS 
appear in the RP/M user's manual. 


Manual alone $55; manual with RPMGEN.COM and 
GETRPM.COM with utilities on 8" SSSD $75. 
Shipping $5 ($10 nonUS). MC, VISA. 


microMethods 


P.O. Box G 
Warrenton, OR 97146 


118 SW First St. 
(503) 861-1765 





Circle no. 37 on reader service card. 
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using a mailing list! Lawyers track 
clients, clubs chart members, and 
businesses of all types garner lists of names 
for mass mailings. I handle a small 1200- 
name mailing list for a missionary friend 
who sends field reports to his supporters 
every month. | 
Usually, a mailing list will eventually 
involve the Post Office, and if the list is 
long enough (200 pieces or more) bulk 
mailing can save money over regular first 
class mail. Ah, but there is a catch. The 
Postmaster expects you to pre-sort your 
mailing, count it, and have accurate zip 


t seems that everyone nowadays is 


by Gene Head 





Gene Head, 2860 N.W. Skyline Dr., 
Corvallis, OR 97330. 





code information. Bulk mail is not gen- 
erally forwarded when an incorrect zip 
code sends your letter to the wrong city 
even if the proper city and state are part 
of the address. 

Exact zip code validation is imprac- 
tical. However, there is a way to partially 
verify zip codes and validate the state. 
This technique should decrease errors and 
increase mass mailing efficiency and 
accuracy. This procedure could be written 
in high-level language, but for speed and 
compactness of code I chose to write it 
as a machine language subroutine. 

ZIP-CHK.ASM assembles into a ma- 
chine code subroutine that uses a table 
published by the Post Office to first verify 
that the two-character state abbreviation 
is correct then check that the zip code is 
within the range for that state as set by 
the table. The source listing is well com- 
mented and documented. It was written 
as a dBASE II subroutine but can easily 


dBASE Il Techniques Listing 


if the ZIF code is 


se wl 3 5 OM 


“28 “3n SR eet RR Re CORB RG CER CE CME RE EE CS RE RE CEE 


“=a 


Notes 


MMH MM MM NM NM 


‘22 RB Ee es ER RR ee RR RZ RE ES 


CALL - ZIP :CHk 


This machine-language subroutine is designed to 
a high-level language such as dBASE ITI or BASIC 
passed variable of exactly five characters like *ST123’, 
ST is the Post Office desigqnated two letter abbreviation for 

the state and 1253 are the first three ZIF code digits of that state. 


On return from this sub-routine, 
Valid for the 
abbreviation is invalid then the 
or aif the state is valid 
then the variable becomes 


ZIF-CHE. CMD 


LOAD ZIF-CHE 
SET CALL TO 42096 


STORE #(STATE,1,2)+%$(ZIF,1,3) 


state, 


ME PN ae 


TO ZIF:CHE 


be adapted to any high-level language 
that can pass a string type memory vari- 
able to the called subroutine and modify 
that variable if required and pass it back 
to the calling program. 

I got the idea for this program from 
Bertel Schmitt who wrote an earlier ver- 
sion as part of a file called DBASM.ASM, 
found on many RCP/M systems around 
the country. I modified and streamlined 
the routine, correcting a few errors in the 
original code. I added a symmetrical look- 
up table that increased accuracy and 
speeded the table search. 

If you have a modem, you can find 
ZIP-CHK.ASM on several RCP/M sys- 
tems, including the dBASE II system at 
(408) 378-8733. BB 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 193. 


SSS PPS SseS ss eters ess ees ese sss Sse sess esses ss ss & 
HXKKK ZIF-CHE. ASM KXKKKK 
OOO HOKE RKA KKK KKK KKK KKK KKK 


be called by 
with 


a single 
where 


the passed variable is un-changed 
If the two letter 
returned variable becomes 
but the ZIF code is out of range 


The following command program could be used to verify a state 


and ZIFF code in a dBASE II data file: 


The following two lines of commands should be 
& part of the main program initialization 


melita ssl <a pg ie Sl as sang anmicacansbnicrbicings dese de ee es 


ho’ 
oo 
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Po Re SZ TP SCH 
DO ERROR: HANDEL ING 
ENDIF 


RETURN 


Adapted fram DBASM. ASM file by Bertel Schmitt Ce) 398s 
Modified and expanded and accuracy enhanced by: 


Gene Head 

Head Quarters 

2860 NW Skyline Drive 
Corvallis, OR 97220 
(S03) 758-0279 


Last up-date 02-02-94 
02-26-84 
IIICICIGIGIGOIGIGIGICIOCOOOCCICIOCOGOOIOIOIOICICICIOICIOIOIOOIOIIDIOIOIOO OAC AIOIOIOICIOIOICIIOICIOIOIIOOIOII SII I oko 


SRS ES SS RA MR RE MS Ee RE es CS te RE re CRS mE CEE ‘hs ‘RE “22 “RR “aS 


START EQU 42098 sDECIMAL LOCATION OF SUR—ROUTINE 
ENDTAR EQU OF FH 5END OF TABLE MARKER 
; ERROR CODES 
NOSTA EQU OF "By «NO SUCH STATE FOUND 
WAZ IF EQU oat ; RAD ZIP'- DOES NOT. MATCH STATE 
ORG START 
REGIN: INX H skip length byte of Passed variable 


MOV DM put state in DE 

INX H 

MOV PE 7; and Save a pointer 
SHLD LAPPNT: sa tecthe! Zire bytes 


5 First try to locate the state in the table 


Lx] Et, & »5 Bumper (each table entry is 8 bytes) 
XT H, TABLE 3; point to first table entry 
lawee 1s | MOV ALM get table character 


Cro. ENDTAB ; see if the end of the table has 

JZ ERRORL 3 «.«. been found and error out if true 

CMF D ; Otherwise try to match first state character 

JZ MAYRY » If first character matches we MAY have out state 
DAD E ; Otherwise BUMF the table pointer to the next 

JMF LOOF 1 s entry and try again, and again, and again..... 


s Here if first state character matches so try for second match 


MAYRY INX H ; Fetch second state character 
MOV AWM 
CMP E 5; Check it against passed variable 
JZ MATCH » ZERO will be set if valid state was found 
DCX H ; Otherwise back up ene to keep BUMPER 
DAD Ei fo oseein SYNC and BUMF to next table entry. 
JMF L_OOF 1 ; Try again, and again, and again... 


(Continued on next page) 


er ee 
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» Here when valid state was found so check if ZIP 1s within range 


MATOH:: — PUSH H : Save pointer to TABLE ZIFS 
L.HL.D ZIFPNT +: HL points to passed ZIF 
MOV BR, H : BRC now points to passed ZIP 
MOY ae eee OTIS 
FOF H Be are ae HL. points to TABLE ZIFS 


; First check if passed ZIP is smaller than first TABLE ZIP 
CALL RANGE © Check first digit 
JC ERRORS +: Carry set if too small 
CALL RANGE » Check second digit 
JC ERROR? +: Carry set if too small 
CALL RANGE. ; Check last digit ONLY if. . . 


JC ERROR? . « « €irst two were exact matches 


DCX BR 
MATCHi DCX Et 
DCX R 


; Keep bumper 16 sync 


FUSH 


R Swap compared elements 
PUSH H 

R 

a 


so mow we check for upper range 


“22 “aS 


POF 
FOF 


x UPPER LIMIT CHECK 


CALL RANGE - Check first digit 

JC ERRORS +; Error out if too large 

CALL RANGE » Check second digit and error 

JC ERROR? +: ...-Qut if it is too large 

RNZ ; If zero then test is passed so return 
s 2.2tQ calling program 

CALL RANGE » Check last digit ONLY if. . . 

JC ERROR2 +; . . .first two were exact matches 

RET » RETURN to calling program all OF: 


* RANGE CHECKER 


RANGE INX R : Compare NEXT byte 
TNX H 
L_.DAX RB : Set CARRY if out of range 
CMF M 
RET. 
; ERRORHANDLERS 
ERRORI:s LHLD ZIPFNT 
MV I As.? e* 
JMP ERROR 
ERRORS: LHLD ZIPFNT 
MVI A, * 2" 
* REPLACE VARIABLE WITH ERROR MESSAGE 
ERROR: LHLD LiPENSE 
DCX H 
MVTI id Pa ae 


nnn ee LEE EEE EEE EEE RRR 
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INX 
MV I 
INX 
MYT 
INX 
MV I 
INX 
MOV 
RET 


ZIPPNT: DS 


; The following 
: Small possessi 
TABLE : 

DE 

DE 

DE 

DE 

DE 

DE 

DE 

DE 

DE 


2 
*s 
Ai 
“2 


a 
“2 
AR 
“2 


Serats pee 


Db 


‘2s ‘SS 


F3 


;AND NOW ERR 


Return to calling program 
~2.-With passed variable set to ERROR 


info is copied from the US Zipcode book. 
ons and islands are not included but may be added. 


"AL S5O369° 
"AK F9S999" 
*AZB50865" 
*AR716729° 
*CAI00941° 
*CO800816" 
*CT060069° 
*DE197199° 
*DC200205° 
*FL320339° 
*GASO0S1L9" 
*HI967968" 
* ID932938" 
"IL 600629" 
* IN460479° 
* TASOOS 2a" 
*KB660679° 
*KY400427° 
*LATOO714° 
"MEOS9049° 
*MD206219° 
*MAQLO027° 
*MI480499° 
*MNSSOS67° 
"MS386397° 
"M0630658" 
*MTS9OS99" 
* NE&80693" 


DE *"NVB20898" 
DE *NHO30038" 
DE "NIO70089? 
DRE *NM870884* 
DRE "NY100149? 
DE *NC270289° 
DRE *NDSB0OS388" 
DE *0H4304358" 
DR “QR 730749" 
DR MER LOFTS" 
DB *FAISOL196’ 
DE *"RIOZBO29" 
DRE ‘SpGsTO027 7" 
DR " BDS7O377 ” 
DE "TNS/70383" 
DE aA OO LTS” 
DR *UTB840847°" 
DE "VTOS0039’ 
DE "VALZOZ46’ 
DE “WAIB80994? 
DE *WY¥2472683" 
DRE "WIS 30549° 
DR "WY820831" 
DE ENDTARB 
END 


End Listings 


THE 


“SEae 
Saan 
SEB, 4 
| v 
ar 6 x 
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, 
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Sse ces} IEEE 488 TO S-100 INTERFACE 


IEEE - 488 "Handles all IEEE-488 1975/78 functions 
#|EEE 696 (S-100) compatible 
= MBASIC subroutines supplied; no BIOS 
mods required 
= 3 parallel ports (8255A-5) 
sindustrial quality; burned in and tested 
#$375 


(Dealer inquiries invited] 


DSW DIGITAL 
20655 Hathaway Ave. 
Hayward, CA 94541 415/ 887-5711 


Circle no. 21 on reader service card. 
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First Chinese Forth 
A Double-Headed Approach 





in China, what problems would English- 

speaking people have to surmount in 
order to use it? To learn computers, a 
person who comes from an Oriental cul- 
ture must overcome at least two major 
obstacles. The first is the natural language 
barrier and the second is the computer 
language barrier. Whenever I read an article 
on computers that is written in English, I 
first have to understand the English 
literal meaning, then the technical aspects 
of the article. Even though I have had 
many years of English education, | still 
have trouble now and then. This difficulty 
will diminish with time, but it will never 
disappear totally. 

With this kind of painful experience 
in mind (would you guys give me a break 
and publish articles in plain and simple 
English?), I started a Chinese Forth com- 
puter project, which should be completed 
by the time this article is published. I 
primarily wanted to provide a computer 
system that is more easily accessible to 
my countrymen, the Chinese. After all, 
we make up more than a quarter of the 
world’s population: over 1,000,000,000 
people. Since the beauty of Forth has been 
established time and time again, it was, of 
course, my first choice without reserva- 
tion. The whole project was written in 
Dai-E Systems’ Forth Level II in both 
Chinese and English. 

The significance of Chinese Forth (or 
any Chinese language computer system) is 
obvious. In Taiwan, as well as other 
Chinese communities, English is a manda- 
tory second language in all schools. But no 
matter how well a Chinese person masters 
the English language, Chinese remains the 
first choice. Computer languages are only 
software tools invented to enable us to 
communicate with hardware. The closer 
this form of expression is to one’s native 
language, the more comfortably the user 
can proceed, and with much better results. 

Many concepts expressed in Chinese 
have no English equivalent, and vice versa. 
This is one reason why translation is a dif- 
ficult problem. Since the computer was 


f the computer had been invented 





by Timothy Huang 





Timothy Huang, Dai-E Systems Inc., 
29783 Town Center Loop West, P. O. 
Box 790, Wilsonville, OR 97070. 


“My main objective is to provide the Chinese people 


with a simple but powerful computer language.” 















boca 


WwW 
(oa) 


a 


rr 
oo N 






© 
La) 
fo 
Mm 
Lp) 
Fe 
t™ 
Ww 
co 
— 2 


cc = = 


Phonetic Characters i - Tone Characters 


Table I. 
Chinese Phonetic Character Chart 
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eee nee ene rr renee 


born in the United States, most of the 
current Forth-related subjects are ex- 
pressed in English: SPACE, SPACES, 
BLANK, BLANKS, etc. For the average 
American, these constructions are natural, 
but the Chinese do not express plurals 
in this manner; they have a different 
philosophy, a different way of thinking, 
and different forms of expression. 

Forth is expressed nicely in English, 
so why not in the oldest language — Chi- 
nese? For the Chinese to realize real com- 
puter power (e.g., Forth power), it should 
be available in their own language. 

My main objective is to provide the 
Chinese people with a simple but power- 
ful computer language. I want to remove 
the English language barrier so that even 
Chinese children can use Forth. Further- 
more, I would like to see the impact on 
Forth of exposure to the Chinese culture 
and language. I hope to see great and 
positive contributions and believe that 
only Forth can absorb this challenge. 


cance 


field =| 


Other less conceptual languages will have 
a difficult time, because the Chinese 
philosophy is very abstract. 


Double (Multiple) Names 


A Forth word with two different 
names can be made easily by: 


: PUD DUP; 
or 
‘FI [COMPILE] IF ; IMMEDIATE 


but there are many deficiencies in this 
method. For example, the execution speed 
will be hampered because the new word(s) 
must execute at least one extra cycle of 
the inner interpreter. 

In his article entitled ““Turtle Talk,” 
Glenn Tenney described a defining word, 
ALIAS, that stores the old word’s cfa into 
the new word’s pfa.! The new word (alias) 
is created as an immediate word: when 
alias is executed, the old word (parent) 
must be executed. This approach solved 


lastbody 


pointers 


some problems but also created its own. 
In our case, not all Chinese words are 
immediate. 

Since the implementation of Dai-E 
Systems’ Forth Level II (83 Standard) 
uses a separate header and body approach, 
we can achieve the double (multiple) name 
easily by simply creating a new header 
with a pointer pointing to the same body 
of the old word. The separated heads con- 
cept was first proposed and implemented 
by Klans Schleisiek.? I’m not arguing the 
respective merits of continuous or sepa- 
rated heads/bodies, but only pointing out 
how I did it. Using the separated heads 
scheme, the memory map of a word is 
shown in Figure 1 (below). 

The pointer in the above structure is 
the key, since nothing forbids more than 
one head pointing to the same body. The 
only no-no is to have one head pointing 
to many bodies, which would result in a 
very interesting Forth system. Equipped 
with this understanding, we can make 


ads/Bod ies Structure © 


‘Figure 2. Double (Multiple) Heads pointing to the same Body 
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double (multiple) headers as shown in 
Figure 2 (page 33). 

To accomplish this, we have to store 
the old pointer from the old word into the 
pointer location of the new name, as de- 
scribed in Figure 3 (below). The word C: 
should be used to generate new names. 
For example: 


C: PUD: DUP; 
C: FIIF ; IMMEDIATE 


The new words (actually new names) 
could be either immediate or non-imme- 
diate words depending on whether we 
issue IMMEDIATE after the definition. 

This simple approach not only elim- 
inates one extra nesting level but also gives 
us the choice of indicating the immediate 
or non-immediate nature of a word. With 
this trick we can have one word behaving 
differently depending on which header we 
use; i.e., One name is immediate and the 
other is non-immediate. 


Chinese Forth 


Chinese characters are ideographic 
symbols. Each one is an individual entity, 
and there are more than 50,000 of them. 
Because it is impossible to make an ASCII 
table to include all of them, we took a 
simpler approach and used the phonetic 
characters rather than the actual ideo- 
grams. There are 37 phonetic symbols and 
five tone symbols, as shown in Table I 


2C: (S ——-———— } 
create 


(page 32). With a proper combination of 
at least one, but no more than three, 
phonetic symbols and one tone symbol, 
all the ideographic characters can be ex- 
pressed. 

These phonetic characters can be 
placed into the higher portion of the ASCII 
table with the most significant bit on. This 
phonetic character set is called the ““BER 
PER MER FER( J & Ce 
This is the first thing learned when a per- 
son enters a formal education institution. 
The phonetic characters are learned first, 
then the pronunciation, then the ideo- 
graphic characters. Eventually, phonetic 
characters (pronunciation) are no longer 
needed alongside each ideographic char- 
acter. 

As mentioned earlier, more than 
50,000 ideographic characters exist now; 
however, there are only about 2,000 legal 
pronunciations (combinations of sounds 
and tones) for them. Thus, the homonym 
(different character with identical pro- 
nunciation) is a very annoying problem. 
Theoretically, each pronunciation can ap- 
ply to about 25 different ideographic char- 
acters. However, the Chinese created a 
clever method for alleviating this con- 
fusion: they used multiple characters to 
form a phrase as often as possible rather 
than single characters. With phrases of at 
least two characters, the chance of a mix- 
up was greatly reduced. The telephone 
directory service of the Taiwan Telephone 


\create double header 
\ make new name field 


— \ find the cfa of the old word — 


7 heads ~ 
here 2- 


\ set dictionary pointer to. header 
\ into the new pointer address — i 


I 2 \ store old cfa into new pointer aes 
\ reset dictionary pointer to body portion 


bodies 


e 
¥ 


Figure 3 3. 
_ Double (Multiple) Header Code 





eH E De 


| Figure 4. 
Characters s printed on Axiom IMP4 





and Telegraph Company is using this 
method in conjunction with their com- 
puter systems with great success. 

For this reason, I decided to avoid 
single-character phonetic names for the 
Chinese Forth words. Each English Forth 
word was translated to a Chinese phrase of 
more than two characters. However, the 
math operators remained the same. Cer- 
tain English characters used in the name 
fields were also preserved, such as “;”’ 
66 29 66 9? gl Bes and SO on. 

Table II (page 36) lists all the required 
words in the 83 Standard. The first column 
is the original English, the second the 
equivalent Chinese ideographic characters, 
the third the phonetic names used in our 
system. Within the phonetic names, the 
first tone character, which is usually the 
blank character, was changed to a high 
raised ‘‘—’’ character to avoid the space 
character limitation of Forth names. 

By using the phonetic characters, even 
though I cannot see the ideographic char- 
acters, I can pronounce the program and 
thus have no problem whatsoever in under- 
standing what I have written. This com- 
puterized solution solves the 50,000- 
character ASCII table problem. Besides, 
this reflects the hope that Forth, a written 
language, might be a spoken language as 
well. Otherwise, why is there a pronuncia- 
tion for words such as @ (fetch) or ! 
(store)? Chinese Forth not only can be 
written but also can be verbalized (spoken). 

The other interesting thing regarding 
our Chinese Forth is, while decompiling 
the English-origin word, one may see half 
English and half Chinese, depending on 
how many English words were translated 
into their Chinese equivalents. This is 
because we utilized the double-header ap- 
proach mentioned earlier. 
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The Dai-E Chinese Computer System includes 
a Victor 9000 microcomputer with 512K of 
RAM, Axiom IMP4 printer, and 5,000 of the 
most commonly used Chinese _ characters 
encoded to conform to the communication 
protocol selected by the U. S. Library of 
Congress, CCCII — Chinese Character Code for 
Information Interchange. In addition to their 
Forth system, they have a Chinese word pro- 
cessor. They should be able to use their system 
shortly on the British-made Apricot computer. 
They are also in the process of bringing the 
system up on other computers. — Ed. BBJ 


(Table II begins on page 36) 
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WALTZ LISP” 


The one and only adult Lisp system for CP/M users. 


Waltz Lisp is a very powerful and complete implementation of the Lisp programming 
language. It includes features previously available only in large Lisp systems. In fact, 
Waltz is substantially compatible with Franz (the Lisp running under Unix), and is similar 
to MacLisp. Do not be deceived by the low introductory price. 

Waltz Lisp is a perfect language for Artificial Intelligence programming. It is also 
suitable for general applications. In fact, due to the ease of handling of textual data and 
random file access functions, it is often easier to write a utility program in Waltz Lisp than 
in any other programming language. Several general purpose utilities (including grep and 
diff) written entirely in Waltz Lisp are included with the interpreter. 


Much faster than other microcomputer Lisps. ¢ Long integers (up to 611 digits). Selectable radix. ¢ True 
dynamic character strings. Full string operations including fast matching/extraction. ¢ Random file 
access. ¢ Binary files. ¢ Standard CP/M devices. ¢ Access to disk directories. * Functions of type lambda 
(expr), nlambda (fexpr), lexpr, macro. © Splicing and non-splicing character macros. ¢ User control over 
all aspects of the interpreter. © Built-in prettyprinting and formatting facilities. e Complete set of error 
handling and debugging functions including user programmable processing of undefined function 
references. ¢ Optional automatic loading of initialization file. © Powerful CP/M command line parsing. ¢ 
Fast sorting/merging using user defined comparison predicates. * Full suite of mapping functions, 
iterators, etc. e Over 250 functions in total. ¢ Extensive manual with hundreds of illustrative examples. 


Waltz Lisp requires C/PM 2.0, Z80 and 48K RAM (more recommended). SS/SD 8’’ and 


most common 5’’ disk formats. 
Introductory Price....$94.50 


Manual.only o 35 cos ces $20.00 


(refundable with order) 
additional charges 
INTERNATIONAL === 
P. O. Box 7301 


$10.00 conversion fee for 5’’ Diskettes 
Charlottesville, VA 22906 

















$3.00 C.0.D. charge 


Call toll free 1-800-LIP-4000 Ask for Dept. #& 
In Oregon and outside U.S.A. call 1-503-684-3000 
Unix® Bell Laboratories. CP/M® Digital Research Corp. 
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Introducing the 
Creative Genius... 





Discover how easy programming can be with DataBurst™ 

YOU A unique runtime screen processor and source program 
e generator, DataBurst™ will decrease your program develop- 

ment time and increase the value of your application programs. The unique 


DataBurst™ screen editor provides fast, easy screen design. Program inde- 
pendent screen formats reduce both development and maintenance time. 


During execution of your program, DataBurst™ controls all user interaction 
through one assembly language interrupt service routine, requiring as little 
as 14K of memory. A true full-screen processor, DataBurst™ allows unlimited 
design complexity, and brings a mainframe advantage to your IBM® PC. 


DataBurst™ is available through your local computer retailer or directly from 
Key Solutions, Inc. To order directly, please send check or money order for 
$225* to Key Solutions, Inc., P.O. Box 2297, Santa Clara, CA 95055. Additional 
language support (BASIC Compiler and C Compiler) is available. for $40° 


(Please inquire about release dates for other language interfaces). 











*In California add 
applicable sales tax. 







IBM®is a registered trademark of IBM Corporation. 
DataBurst™ is a trademark of Key Solutions, Inc. 
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Taligere[Uleilale) 
PROATROL® 


The PROATROL™ single board 
foro) a) 0)0) (>) mim ele)ial- We)’ mere)-) €e (oo 
velopment system for program- 
ming in FORTH, and a powerful 
target system for a wide range of 
ig=y- 1m lanl=mere) alice) mle) ¢)|(er-1(e) aloe 


The 5” x 8” stand alone board is 
based on the Rockwell single 


chip FORTH Microcomputer 
which contains a FORTH oper- 
ating system in its internal ROM. 


e RS 232 and 20 ma serial interface 

e 4 sockets for plug in I/O modules 
(Opto 22, Crydom, etc. 

e 4 half bridge power drivers 

e 8 optically isolated inputs 


e 8 channel 8 bit ADC, ratiometric 
or referenced 


e 4 potentiometers for level/speed 
settings 

e 4 position dip switch 

e 4 Schmitt trigger inputs 

e 4 open collector outputs 

e 8 expansion I/O lines 

e Power fail interrupt/reset 

e In circuit EPROM and EEPROM 
programming 

e +5v regulator, DC/DC convertor 

e Buss expansion connector 

e Sockets for up to 14kb of memory 


PROATROL™ has it all together! 


Develop your program, configure your 
1/O options, debug your system and 
GO FORTH! 


Only $649.00 


Bokejce(- a - semen liclae-m om 


ma pi Oawere)sclele-liiele 


4019 EDITH BLVD. NE BLDG. 2B 
PNG s\61@]0) 1 5\@16) omy | ovamlers 
mre) mi¥latacs)m ae sen -lceanel 


(505) 344-2106 
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cc A Driver for a Small-C 
Programming system 





Dr. Schreiner was kind enough to provide 
us with two programs for use with the 
Small-C compiler: cc, presented here, and 
p, a stand-alone Small-C preprocessor. 
References to p, in the following discussion 
are to that preprocessor, which we will 
publish next month. — Ed. 


nce you make extensive use of a 
O) programming system consisting of a 

compiler, assembler, and linker, 
you find yourself either typing a lot of 
commands or using the CP/M SUBMIT 
facility quite a bit. The latter, however, is 
not very flexible. It will run uncondi- 
tionally whatever commands the batch 
file dictates; those, regardless of argument 
substitution, may be more or less than 
what you intended. 

A language like C encourages separate 
compilation and program composition 
from various source files. A combination 
like Jim Hendrix’s Small-C compiler (DDJ, 
December 1982) and MicroSoft’s relo- 
cating assembler and linking loader makes 
it quite attractive to compile as little as 
possible during program development. 
When you add a separate preprocessor for 
Small C and attempt to eliminate inter- 
mediate files, you find yourself typing a 
lot of (almost) identical commands each 
time you want to preprocess, compile, 
erase, assemble, erase, link, and so on. 

cc (Listing One, page 44) is a program 
patterned after Dennis Ritchie’s cc com- 
mand in the Unix* system. It accepts 
options and file specifications and, through 
CP/M’s SUBMIT feature, arranges for the 
proper amount of preprocessing, com- 
piling, assembly, and loading. Essentially 
you type what files ought to be processed 
to construct a program, then cc prepares 
a SUBMIT file and persuades CP/M to 
execute it. 





Features 


cc is based on a runtime support 
that passes arguments to the main program. 
It expects to be called as follows: 


by Axel Schreiner 





Axel T. Schreiner, Universitat Ulm, Sek- 
tion Meth. d. Informatik, Oberer Eselsberg, 
7900 Ulm (Doran) West Germany. 


* Unix is a trademark of Bell Laboratories. 


ec (option). .. files. 


You may specify options in any order. 
They are generally cumulative. The fol- 
lowing options are available: 


—C Compile only; do not exe- 
cute the linker 

=p Preprocess only 

-§ Preprocess and compile only 

-o filename Output of the linker is 
‘*filename”’ 


Other options are passed on to the 
relevant processor, mostly to the Small- 
C preprocessor. p accepts the following: 


-d name Define a symbolic name 
(=value) 

-e Suppress position stam ps 

-i drive Search for file inclusion 

-u name Undefine a symbolic name 


So that p can be used prior to Hendrix’s 
compiler, the -e option is included 
automatically. 

Files are passed on to the appropriate 
processors. The more general files are 
processed first. Intermediate files, named 
after the original source files, are erased 
once they are no longer needed; objects, 
however, are retained. In the absence of 
the -o option, the resulting load module 
will be named after the first of the more 
general source files. cc uses the following 
filename extensions: 


Cc Preprocessor source file 

Bl Compiler source file 

.mac Macro assembler source file 
Tel Linker source file or library 


If an extension is not present or is 
unrecognizeable, the file is passed only to 
the linker. It is thus quite simple to pass 
libraries. Files are passed to the linker 
within each source file category in the 
order specified; the more general source 
file category, however, is passed first. This 
rarely produces conflicts. 

The options are clearly patterned 
after the Unix system. The main program 
expects to receive pointers to the various 
options as a vector “‘argv.”” The number of 
such options, including (theoretically) the 
program name as first option, is also passed 
as an integer “‘argc.”’ Options must pre- 
cede the filenames. 


Examples 

A few sample calls might illustrate just 
what cc does. The first call will construct 
the cc command itself: 


B>cc cc.c 


On my system I have the shortest 
possible names for the language processors, 
and I keep most tools on disk a:. Here the 
following commands would be issued: 

A>b:p-e b:cc.c >b:cc.i 

A>c b:cc.i >b:cc.mac 

A>era b:cc.i 

A>m =b:cc 

A>era b:cc.mac 

A>1 b:cc/n/e,b:cc,c/s 

A>b: 

Assume that submit.c is compiled separately: 


B>cc -c submit.c 
A> b:p -e b:submit.c >b:submit.i 
A>c b:submit.i >b:submit.mac 
A>era b:submit.i 
A>m =b:submit 
A>era b:submit.mac 
A>b: 
Subsequently we can compile cc.c and link 
it as follows: 
B>cc submit cc.c 
A>bd:p -e b:cc.c >b:cc.i 
A>c b:cc.i >b:cc.mac 
A>era b:cc.i 
A>m =b:cc 
A> era b:cc.mac 
A>1 b:cc/n/e,b:cc,submit,c/s 
A>bd: 
It should be clear why such a driver 


program might be useful not only for 
Small C. 


Implementation 


The system driver basically has the 
following structure: 


® obtain and save options, initialize 
® obtain, test, and save files 


e for each category of source files run 
preprocessor, compiler, assembler as 
required 

® run linker as required 


Most of this is accomplished by 
main(); one subroutine for each processor 
handles the problem of issuing the actual 
commands. This arrangement makes the 
system easy to adapt to other processors. 

File and option lists must be circular 
so that they can be traversed easily in 
input order. Push routines maintain the 
lists. A list element consists of a pointer 
to the next list element, followed by 


a CELE EEE EEE SSeS! 
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the string that constitutes the actual value 
stored. The list header points to the last 
element entered, which in turn points to 
the first element, and the circular list con- 
tinues on to the last element again. The 
list need not be marked since you always 
start at the list header and thus know when 
you have traversed the list once. 

For reasons explained below, file- 
names must be fully specified. If an ex- 
plicit drive name is not part of the file 
specification, pushf( ) will add the current 
drive name. 

The kind() function analyzes a file 
specification to determine the source 
category based on the file extension. All 
“unknown” extensions are considered to 
be object specifications. This allows linker 
libraries to pass through correctly. All 
other files must be existing source files. To 
detect trivial errors early, kind() tests 
all source files for existence by opening 
them for reading. 


submit ( ) 


The most interesting aspect of cc 
clearly is its use of the CP/M SUBMIT 
feature. During a warm start on drive a:, 
the CP/M console command processor 
(CCP) checks if a file $$$.sub exists. If it 
does, it is expected to contain one CCP 
command line (preceded by its length) 
per CP/M sector. The CCP takes the last 
sector from the file, truncates the file by 
one sector, and issues the command. 

To use this feature, you need to store 
all command lines as a stack then write 
them, appropriately formatted, into the 
file. You also need to take care that, once 
the driver program exits, drive a: is selected 
and a warm start is performed. 

The submit( ) function (Listing Two, 
page 52) handles all of this. If it is called 
with a string argument, it will stack the 
string (using a dynamic memory allocation 
function that is part of my runtime sup- 
port). If itis called with a NULL argument, 
it will write the stack (i.e., the commands 
in reverse order) into the file, force the 
CCP to select drive a: (and user area 0) by 
clearing the byte at location 4, and ter- 
minate program execution through a 
warm start. 


submit() issues a command to (re)- 
select the current drive, so that once the 
batch stream is completely processed the 
current drive is selected again. Neverthe- 
less, during batch execution, drive a: must 
be selected. This is why pushf() fully 
specifies each file. 

submit( ) actually appends to the end 
of the batch file processed by the CCP. 
This has a desirable effect in that submit ( ) 
can be used from within a batch stream — 
something that is lacking in the CP/M 
SUBMIT utility. (It is not very difficult 
to position a CP/M file to end of file, 
especially on a sector boundary.) A simple 


test program (Listing Three, page 55) 
demonstrates this feature: 
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MORE 
OWER... 


MORE 
SPEED... 











C86, The Leading C Compiler For PC-DOS, 
MS-DOS Systems Is Better Than Ever. 


The latest release of C86 has the features that serious 
programmers want the most. 
e FAST EXECUTION - 50% faster 


e¢ FULL & STANDARD IMPLEMENTATION OF C - includes all the 
features described by K & R. It works with the standard MS-DOS Linker 
and Assembler; plus programs written under UNIX can often be 
compiled with no changes. 


¢ POWERFUL OPTIONS - include fast 8087 support; DOS2 and DOS1 
support and interfaces; graphics; librarians; and much more. 


¢ FULL LIBRARY WITH SOURCE - object libraries with full source code 
for the ‘‘large’’ and “‘small’’ models, software and 8087 floating point, 
DOS2 and DOSALL. 


e FULL RANGE OF SUPPORT PRODUCTS - including file 
management, graphics, screen management, source code 
management, communications, and more. 


¢ HIGH RELIABILITY - time proven through thousands of users. 
e DIRECT TECHNICAL SUPPORT 


MORE POWER...MORE SPEED... 
STILL ONLY $395 


FOR MORE INFORMATION OR TO ORDER CALL: 


800-922-0169 


Technical Support: (201) 542-5920 


COMPUTER INNOVATIONS 


980 Shrewsbury Avenue, Suite DR 
Tinton Falls, NJ 07724 





C86 is a trademark of Computer Innovations, Inc. MS-DOS is a trademark of 
Microsoft. PC-DOS is a trademark of International Business Machines. 


Circle no. 13 on reader service card. 41 


























WHY FORTH ? 


e Genuinely Interactive 
(BASIC is much less interactive) 


e Encourages Modular Programs 
(inefficiency and cluttered syntax 
hamper effective modularization in 
compiled languages) 


e Fast Execution 
~ (not even C is faster) 


e Amazingly Compact Code 
e Fast Program Development 
Easy Peripherals Interfacing 


HS ORTH 


e Fully ae & Tested for: 


IBM-PC IBM-XT IBM-JR 
COMPAQ EAGLE- PC-2 
TANDY 2000 LEADING EDGE 


and all MSDOS compatibles 

e Graphics - line, rectangle, block 

e Music - foreground and 
background 

e Scaled decimal floating point 

e Includes Forth-79 and Forth-83 

e Full Support for DOS Files, 
Standard Screens and Random 
access DOS Screen Files 


e Full Use of 8088 Instructions 
(not limited 8080 conversion subset 
of transported versions) 


e Separate Segments for Code, 
Stack, Vocabularies, and Defini- 
tion Lists - multiple sets 
possible 

e Segment Management Support 

e Full Megabyte - programs 
or data 

e Coprocessor Support 

e Multi-task, Multi-user 
Compatible 


e Automatic Optimizer 
(no assembler knowledge needed) 


e Full Assembler 
(interactive, easy to use & learn) 

e Compare - BYTE Sieve 
Benchmark jan83 
HS/FORTH 47 sec BASIC 2000 sec 
w/AUTOOPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 

PS You don’t have to understand 

this ad to love programming in 

HS/FORTH! 


HS/FORTH with AUTO-OPT & 
MICRO-ASM_ $220. 


nace Visa Mastercard 
Add $10. shipping and handling 


HARVARD 
SOFTWORKS 


OX 339 
SAEeaD. MA 01451 


(617) 456-3021 
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Box abc “de t's 
a 
A>b:x bc 
b 
A>b:xc 


c 

A>a: 
A>b:x ‘de'f 
de 

A>bix f 

f 

A>a: 
A>b:x g 


£ 
A>b: 


Quotes and double quotes can be used to 
hide white space within command argu- 
ments. The output shown above has been 
indented to show the nesting of batch 
streams, 


Installation 


Getting cc to run on your system 
might be tricky. Basically you need to de- 
cide where your processors and standard 
libraries reside and how they ought to be 
called. Also, cc relies on my own runtime 
support, which is heavily oriented towards 
the Unix environment. 

You probably should consult Kern- 
ighan and Ritchie’s book The C Program- 
ming Language (Prentice Hall, 1978) to 
learn about all the routines that are 
mentioned “extern’’ at the beginning of 
the program. Most of them are quite 
simple to construct. It is essential, how- 
ever, that you provide a memory alloca- 
tor, calloc( ), that is reasonably stable. I 
am. using a scheme where memory above 
the load module and below the stack is 
managed by a list of words, each word 
pointing to the next. The low bit in each 
such word indicates if the area past that 
word and up to the next one is allocated 
or free. 

I have had access to Chapter 17 of 
Hendrix’s book on Small C, describing his 
runtime support. [See this month and last 
month for Payne’s and Hendrix’s new 
library — Ed.| While I did not have access 
to the runtime support itself and therefore 
could not test it, I believe that installing 
ce should be quite simple. The following 
probably must be done: 


FILE should be defined as int. 

_drive( ) needs to access BDOS func- 
tion 25. 

fseek(.., 10) is Hendrix’s cseek(.. , 2). 

rindex ( ) is Hendrix’s strrchr( ). 


You can replace _—bputchar() by 
storing the relevant characters in a buffer 
of length 128 and using Hendrix’s write( ) 
to emit the buffer. The file pointer —cfp 


then is not needed. 
I process the arguments to main( ) 


directly. Depending on the actual imple- 
mentation, you might have to use Hen- 
drix’s function getarg( ). I am assuming 


that the storage allocator, calloc( )/ 
cfree( ), supports random order release of 
memory. 

Two runtime routines deserve special 
mention: 


fseek(fp, 0, 10) 


will position the file indicated by “‘fp” 
to the end of the last allocated CP/M 
sector. (In Unix the third argument for 
fseek( ) must be 0, 1, or 2, indicating 
positioning relative to the beginning of 
the file, the present position, and the end 
of the file. Additionally, I permit 8, 9, 
and 10, indicating sector positioning.) 


_bputchar(ch) 


will emit the character ‘‘ch’’ to the file 
currently indicated by ‘‘_cfp” without 
interpreting tab, return, or other char- 
acters. Since submit() must write CP/M 
sectors containing binary length infor- 
mation, use of this very internal routine 
of the runtime support is necessary. 
_bputchar( ) returns EOF on end of file, 
e.g., when the relevant disk overflows. 

Deciding where your processors live 
and how they ought to be called is your 
own problem. I have a CP/M system with 
two 200K floppies; one of these (barely) 
contains Small C, the MicroSoft assembler 
and linker, a text editor, and my runtime 
library. Unless I trade the text editor for 
the preprocessor, I have to call the pre- 
processor from the second disk. 

Notice that the SUBMIT file must be 
on the a: disk and that this disk must be 
selected while this file is processed. My 
processors therefore all sit on this disk, 
with enough room left over for the SUB- 
MIT file. 

Constructing the proper calls is rela- 
tively simple; if you use other systems, 
you may have to add a small amount of 
code to the program. 


Part of this work was done during a sabbatical 
spent at the University of Illinois; in particular, 
the Small-C system was obtained from “UseNet.” 


BB 
(Listing begins on page 44) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 195. 
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COHERENT" IS SUPERIOR TO UNIX* 
AND IT’S AVAILABLE TODAY 
ON THE IBM PC. 


Mark Williams Company hasn't just taken a mini-computer 
operating system, like UNIX, and ported it to the PC. We 
wrote COHERENT ourselves. We were able to bring UNIX 
capability to the PC with the PC in mind, making it the most 
efficient personal computer work station available at an 
unbelievable price. 


For the first time you get a multi-user, multitasking operating 
system on your IBM PC. Because COHERENT is UNIX- 
compatible, UNIX software will run on the PC under 
COHERENT. 


The software system includes a C-compiler and over 100 utili- 
ties, all for $500. Similar environments cost thousands more. 


COHERENT on the IBM PC requires a hard disk and 256K 
memory. It’s available on the IBM XT, and Tecmar, Davong 
and Corvus hard disks. 


Available now. For additional information, call or write, 


Mark Williams Company 
1430 West Wrightwood, Chicago, Illinois 60614 
312/472-6659 © 


Mark 
Williams 
Company 


wy 





COHERENT is a trade mark of Mark Williams Company. 
*UNIX is a trade mark of Bell Laboratories. 
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CC (Text begins on page 40) 
Listing One 


/* 
* 
* 
%/ 


/% 
% 
% 
* 
*/ 


char 


#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 


/* 


* eK KK K K 


/ 


ce - smallC compiler driver 


ats 3/83 

define... 

cso to drive Software Toolworks C80 

usagefl] = 
“ee C-cipis] C-d n€=v1] C-el C-i di] C-o task] [C-u n] files"s 
Csource 1 /* results of kind () */ 

Msource 2 

Psource 3 

Cfile sas Ri /* for these extensions */ 

Pfile ye is 

Mfile "mac" 

C "ec /* far these processors */ 

p "bip" 

M Nia" 

L ie ass 

CLIB "e/s" /* and this library search */ 
“FEATURES: " 


If the same file name is specified with different 
extensions: the most general source is processed... 
~.-and the others will fail» but be Linked several times! 


#ineclude <stdio.h> 


/* 
* 


#define 
#define 
#define 
#define 
#define 
#define 


%/ 


/* 
* 
*/ 


#define 


#define 
#define 
#define 
#define 
#define 


i/o header file 


FILE 
stdin 
stdout 
stderr 
NULL 
EOF 


special 


LIST 


luonext(x) 


listrtx) 
l1_first ¢ 


sz_STR(s) 


Sz FILE ¢ 


Tee 
Tee 
ee 
222 
Q 

LPr 


type to represent files (used as FILE*) 
pre-opened standard input file 
pre-opened standard output file 
pre-opened diagnostic output file 

null pointers false 

end of file indication 


data type 


int list of word or string values */ 
C#Cx)) 
CCxI+1) 

C#Cx) +2) 
(3+strlen(s)) 
(S+strlen(s)) 


-> next element */ 

-> string value */ 

->) first string value in circular list */ 
size of string list element */ 


Size of file (+ drive) element */ 


x? 


a) 


et a a a en a 
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/%* 
* runtime support routines 
% / 
extern —drived)s /* BDOS function 25: current drive number */ 
calloc()s /* (nel) return NULL or -) n elements of length 1 */ 
cfreet)s /* (p) free area at p:» returned by calloc() */ 
exit)» /* terminate program execution */ 
fputs()s /* (ssf) write string s on file f */ 
freopen()s /* Cnomsf) return NULL or file descriptor fs 
closed if necessary: and reopened to read 
Cm == "r")e write C"w")s or append ("a") #*/ 
rindex()s /* (ssc) find c in string s end to fronts return 
NULL or -)c in S$ ’\O” is always found */ 
streatt)s /* Casb) copy string b beyond string a */ 
stremp ()s /* Casb) <{s ==5 >) O as string a is (3 ==» > string b */ 
strepy()s /* Casb) copy string b to string a */ 
strlend)s /* (€s) return number of characters in string s */ 
submit) 5 /* (€s) add string s to command list’ (NULL) submit */ 
/% 
* global data 
*/ 
char buf Ciz2é]; /* to submit Clength unchecked...) */ 
drivel] = "?8",5 /#* current drive name */ 
pflag:» /* rum only preprocessor */ 
cflag:; /* run only compiler */ 
sflag; /* run assembler */ 
List tasks /* task name (-o option) only */ 
*popt: /* p option list */ 
*#parg: /* p argument list */ 
*#carg: /* c argument list */ 
*margs /* m argument list */ 
*larg; /* 1 argument list */ 


mainCarge,s argv) 
int argcs 
int *#argvs 

< char *cp5 
LIST *args 


/* remember current drive */ 


drivelO] = drivet) + ’a’3 


/* default preprocessor options */ 
popt = pushs(popts “-e")3 


/* record options and flags */ 
while (--arge) 
{ cp = *#++argvi 
/* options must precede files */ 
i=. Cag0 = 9 
break $ 
/* dispatch and record» accept values attached or separate */ 
switch(cplil> ¢ 


case ’ca’& /%* -c run pcm */ 
cflag = 13 
break $ 
case ’d’: /* -d nC=v] p option */ 
case ’i’: heed’ ee = p option */ 
case ’u’: /* un p option */ 
popt = pushs(popts *argv)s 
if (epf2]) 
breaks 


(Continued on next page) 
ae 
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CC (Listing Continued, text begins on page 40) 
Listing One 


if (--arge == 0) 
goto errors 


popt = pushs(popts #*++argv) 3 
break $ 
case ’e’: f* -~e P option *A/ 
popt = pushs(popt,s *argv) 3 
break $ 
case ’0’5: /* -a task name task image */ 
4.f. Seated? 
task = pushf(tasks cpt+2)3 
else if (--arge == 0) 
goto error: 
else 
task = pushf(tasks #++argv)3 
break § 
case ’p’: {*. ~f run p */ 
pflag = 135 
break § 
case *s’: /* = rin pe #7 
sflag = 135 
break $ 
default: 
goto errors 
r 


} 


/* there must be at least one file */ 
if C€arge == 0) 


{ 
error: FputsCusage, stderr): 
eBxitdcds 
} 
/* eollect files on various lists */ 
do , 
4, Switch(kind(#argv)) ¢ 
case Psource: 
Pparg = pushf(parg: *argv)3 
break 3 
case Csource: 
Carg = pushf(carg:s *argv)3 
break $ 
case Msource: 
marg = pushf(margs *argv)$ 
break § 
default: 
larg = pushf(larg:s *argv)i 
+ 
++argvi 


+ while (--argc): 


/* run files preprocessor -) compiler -) 


assembler */ 


if C€arg = parg) 

do 

{ arg = *args 
run€P,s popts l_estrtarg)s Pfiles Cfile)$ 
if (pflag) 

continues 

runc€C,s NULLs Il_strCarg)s Cfiles Mfile)3 
Grase(listrtarg)s Cfile)3 


(Continued on page 48) 
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Save a year of development. 
Over 600 functions. 
Main-frame libraries on a micro. 





Quelo” 68000 Assembler 


First Commercial Release 
New 5.0 Release January, 1983 


The QueloT™M portable 68000 assembler conforms to the Motorola 
resident assembler, publication M68KMASM[D4]. 


Quelo™ 68000 Assembler Package Features: 
Input file concatenation, include function, macros, global 
parameter substitution from command line, listing date-time 
stamp, up to 31 character symbols, conditional assembly, struc- 
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structions, relocation and linking, complex expression linking (all 
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Julian Date, field input, graphic fill, pie, text windows. to any system with a C compiler and “UNIX like” system interface. 
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Many files to one file. View/print while in archive. 


Credit Cards Accepted. Single User License. 
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Portable source version with | 
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COD, Visa, MasterCard. (206) 285-2528 
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PGX utility package allows the same 
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MODEL 7316 PAL PROGRAMMER 
Programs all series 20 PALS. Software 
included for compiling PAL source 
codes. 
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CC (Listing Continued, text begins on page 40) 
Listing One 


if (sflag) 
continues 
asm(lustr(Carg))3 
erase(listr(arg): Mfile)ds 
+ while (arg !'= parg)s 
if (pflag) 
goto done; 


/* run files compiler -) assembler */ 
if C€arg = carg) 


do 

{ arg = *args 
runc€C:s NULLs lustr¢targ)s Cfiles Mfile)d5 
if (sflag)?) 


continues 
asm(listrCarg))5 
erase(listr(arg)s Mfile)s; 
+} while Carg != carg)i 
if (sflag) 
goto done; 


/* run files assembler */ 
if (arg = marg) 


do 
3! arg = *args 
asmC(luistrCarg))s5 
+ while (arg != marg)i 
if (cflag) 


goto done; 


/* run (MicroSoft) linker */ 
/* L task/n/es parg...1 Carg...3 marg.e..s larg...» CLIB */ 
/* note that we do not explicitly check the length of this command *#/ 


strepy(bufs L)5 
streat(bufs " "05 


/* decide on output file name */ 
if (task) 

streat(bufs lostr(task))3 
else if (parg) 

streat (buffs l_first(parg))5 
else if (carg) 

streat(buf: l_first(carg))5 
else if (marg?) 

streat(bufs Lfirst(marg))3 
else if (larg) 

streat(bufs lLufirstClarg))5 


else 

{ streat( buf: drive) $s 
streat(bufs “task"); 

} 


streat(buf: "/n/e")ds 


/* add all modules */ 
if (arg = parg) 


do 
{ arg = *arg3 
streatCbufs 3"°)5 
streat(bufs lostr(arg))s 
+ while Carg != parg); 


es nS SSS LL 
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ssn aad 


if €arg = carg) 


do 
‘+ arg = *args 
streat(bufs "3")5 
streat(bufs lestr(arg))s$ 
+ while Carg != carg)5 
if €arg = marg) 
doa 
{ arg = *args 
streat (buffs "2")5 
streat(bufs listrtarg)) 5 
} while (arg != marg)3 
if Carg = larg) 
doa 
+ arg = *args 


streat(Cbufs "3")5 
streat(bufs listr(arg))s 
+} while (arg != larg); 


/* add smallC library and submit */ 
streat(bufs “s")5 

streat(bufs CLIB)s 

submit (buf) 5 


/%* submit the batch stream */ 
done: 

Submit (NULL) § 
} 


/* 
% Circular list routines 
*/ 


pushs(l» s) /* attach string to list */ 
LIST #15 /*® list #/ 
Char *s3 /* string */ 
{ LIST #*ri /* new element +*#/ 
if (€r = calloc(sz_STR(s)s 1)) NULL) 
{ fputs ("no room"»s stderr 
exit) 


5 


> 
strepytlestr(r)s s)§ 
/* empty list: link first element to itself */ 
if (1 == NULL) 
return lunext(r)d = rr 
/* nonempty list: tie element into it */ 
lonext¢(r) = lonext¢1)$ 
return lunext¢l) = ri 
} 


pushfcls f) /* attach file name to list */ 
LIST #13 /* List */ 
char *f3 /* file name */ 

{ LIST *#r$ /%* new element */ 


if ((r = calloc(sz_FILECf)» 139) == NULL) 
{ Fouts("noa room"» stderr) 
exit) 


> 
if CfFELIJ t= *38’) /* use current drive */ 


{ strepy(l_str(r)s drive) 
streat(l_str(r)s £93 


} 
else /* explicit drive */ 


(Continued on next page) 
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Multiuser/Multitasking 
for 8080, Z80, 8086 






Industrial / 
Strength 


FORTH 










TaskFORTH.. 


The First 
Professional Quality 
Full Feature FORTH 

System at a micro price* 


LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 


% Unlimited number of tasks 


x Multiple thread dictionary, 
superfast compilation 


vx Novice Programmer 
Protection Packaget™ 


x Diagnostic tools, quick and 
simple debugging 


vx Starting FORTH, FORTH-79, 
FORTH-83 compatible 


yy Screen and serial editor, 
easy program generation 


yx Hierarchical file system with 
data base management 


* Starter package $250. Full package $395. Single 
user and commercial licenses available. 


If you are an experienced 
FORTH programmer, this is the 
one you have been waiting for! 
If you are a beginning FORTH 
programmer, this will get you 
started right, and quickly too! 


Available on 8 inch disk 
under CP/M 2.2 or greater 
also 
various 514’’ formats 
and other operating systems 


FULLY WARRANTIED, 
DOCUMENTED AND 
SUPPORTED 


aap nal Eevee: 
INQUIRE VISA® 
INVITED a 





Shaw Laboratories, Ltd. 
24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 
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CC (Listing Continued, text begins on page 40) 
Listing One 


strepyCl_streCr)ds £33 
if (1 == NULL) 

return luonext(r) = rj 
lunext¢r) = Lionext¢1)$3 
return lonext¢1) = v3 


+ 
/* 
* source file type analysis 
% / 
kind ¢#) /* determine type of source */ 
char #*f5 /* file name */ 
{ char *pi 
if (p = rindex(fs 7.7)) 
if (stremp(p» Pfile) == 0) 
{ if (freopen(fs “r"s stdin) == NULL) 
goto badfiles 
#p = "\O7 5 
return Psource$ 
} 
else if (stremp(p;s Cfile) == 0) 
{ if (freopen(fs "r"“s stdin) == NULL) 
goto badfile;i 
#p = 7\0’ 5 
return Csource3 
+ 
else if (stremp(p:» Mfile) == 0) 
{ if (freopen(fs "r"“s stdin) == NULL) 
goto badfile$ 
#p = 7\0'4 
return Msource$ 
} ‘ 
return O§ 
badfile: 
fputs ("cannot open “» stderr) 
fputs(fs stderr) s 
exits 
} 
/* 
* routines to produce command calls 
*/ 
runCemds opts fnms ins out) /* run smallC task #*/ 
/* cmd opt... fnm.in > Ffnm.out */ 
Char *cemd /* command name */ 
LIST *opt$ /* aption list */ 
char #*fnms /* file name to process */ 
Char *#in$ /* input file extension #*/ 
char *out5 /* output file extension #*/ 
{ LIST #p$ 7 


strepy(bufs cmd) $ 
if (p = opt) 
do 
{ P = l_next(p)i 
streat(bufs " "33 
streat (buf, listr(p))3 


(Continued on page 52) 
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Blane 


Shown in test mode. 





DISPLAY 1) Bright 1" high 
display system L] Progress 
indicated during programming 
L] Error messages 


KEYBOARD [) Full travel entry 
keys L] Auto repeat L] Illumi- 
nated function indicators 


INTERFACE () RS-232C for 
data transfer L) 110-19.2K 
baud LU X-on X-off control of 
serial data 


set _] Total support L) 28 pin 
sockets |] Faulty EPROMS indi- 
cated at socket ] Programs 1 
to 128K devices L] Built in 
diagnostics L] No calibration 
required L} No personality 
modules to buy L] Complete 
with 128K buffer LJ Only 


$995.00 
FUNCTIONS I Fast andstan- — operation, external terminal COMP LETE 


dard programming algorithms _not needed for full command Dealer inquiries welcome. 


SOUTHERN COMPUTER CORPORATION 
3720 N. Stratford Rd., Atlanta, GA 30342, 404-231-5363 


1 Single key commands 

LJ Search finds data strings up 
to 256 bytes long L] Electronic 
signatures for easy data error 
I.D. U “FF” skipping for max 
programming speed L] User 
sets memory boundaries L] 15 
commands including move, 
edit, fill, search, etc. functions 
J Extended mode reads 
EPROM sets 


GENERAL L Stand alone 
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Lower Price! 


= ~ WemakeC easy... 












_— eee and work! 


= : Whether you're a seasoned pro or just 
ee getting started with C, our Eco-C C 
compliler has everything you need. 









eA full C compiler, including long, 
float and double. 

eA library of more than 100 functions 

: for faster program development. 

eThe compiler generates assembler output (Zilog mnemonics) for processing 
“with Microsoft’s MACRO 80 assembler and linker, both of which are included 
in the price. 

eExtremely efficient code (e.g., Knuth’s “seive” executes in 15.8 seconds). 

eFor a limited time, we include a copy of the C Programming Guide. The Guide 
and the Eco-C compiler provide an excellent environment for learning C. 
















Perhaps the best news is that we've lowered the price of Eco-C to $250.00 and it 
includes a user’s manual, the Guide and MACRO 80. Eco-C requires a Z80 CPU 
and CP/M (an 8088 version in the 2nd quarter). To order, call or write: 









EE 6413 N. College Ave. eensiane 
Indianapolis, IN 46220 ta 
eCoOsoFT#InNc. (317) 255-6476 =e, 


Trademarks: Eco-C (Ecosoft), MACRO 80 (Microsoft), CP/M (Digital Research), Z80 (Zilog) 
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IBM PERSONAL 
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OF ARTIFICIAL 
INTELLIGENCE FOR 

YOUR IBM PC. 


DATA TYPES 
Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 

Machine Language Code 


M@ MEMORY MANAGEMENT 
Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 


M@ FUNCTION TYPES 
EXPR/FEXPR/ MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


10 SUPPORT 
Multiple Display Windows 
Cursor Control 

All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 

Package Support 

Debugging Functions 

.OBJ File Loader 


HM RUNS UNDER PC-DOS 1.1 or 2.0 
eae ee eee 
















































IQLISP 
5%’ Diskette 
and Manual. —s——S—«< 175.00 
Manual Only___ —————« $ - 30.00 





J q Integral Quality 


P.O. Box 31970 
Seattle, Washington 98103-0070 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 
Shipping included for prepaid orders. 
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CC (Listing Continued, text begins on page 40) 


Listing One 


streat(bufs 

streat(bufs 
#ifndef cso 

streat (buf s 

streatCbufs 

streat(bufs 


streat (bufs 
#endif 

submit (buf) 
+ 
asm(fnm) 

char *fnm3 
{ 

strepy (buf s 

streat (buf s 

streatCbufs 

submit (buf) 
} 


erase(fnms:ext) 


char *fnm3 
char *exts 


+ while (p != opt)s$ 
ih) ")5 
frm) $ 
im) § 
a > as i 
Frm) $ 
out) $ 
3 
/% run (MicroSoft) macro assembler */ 
/* M = Fnm */ 
/* file name to process *#/ 
M)>$ 
t oe | 
fnm) 5 
3 
/* erase intermediate file */ 
/* era fnm.ext */ 
/* file name */ 
/* extension */ 
{ 
strepy(bufs “era “35 
streatCbufs fnm) $5 
streatCbufs ext)s 
submit (buf) 
} 


Listing Two 


/% 

* submit ¢) -- 
* ats 35/83 

%/ 


#define DSKBYTE 4 


a 
3 


End Listing One 


submit commands to CP/M batch 


/* BDOS/CCP selected disk; user# */ 


/* 

* needed from the i/o header file 

#define FILE 2??? type to represent files 
#define NULL 8) null pointers false 
#define EOF 299 end of file indication 

%/ 

4% 

* runtime support routines 

%/ 

(Continued on page 54) 
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Now the advantages 

of Forth are available 

for your IBM PC® Easy to 

use for both experienced 
programmers and _ beginners 
too, Forth offers the advantages 
of speed, flexibility, and ease of use. 


he MU Forth Package Provides: 


Source and object code 
user documentation 


Commented source listings 
Break Through the in IBM and macro assembler format 


64K Barrier! Turtle graphics, sound, and 
music support 


FORTH-32™ lets you use up to one megabyte : Keyboard and video support 


of memory for programming. A Complete sample programs 


Development System! Fully Compatible 


Software and 8087 Floating Point Extensions. Requires: 


Your IBM PC, 16K memory, 1 disk drive, PC 
contact a participating DOS 1.X, color or monochrome, 40 or 80 


2.8 = 25 - column display. 
Quest Research, Inc. Computerland sie S 
303 Williams Ave. oo 
ie 800-558-8088 The pies F.i 6.05... / 5 


Available from: Art Arizpe 
N vailable for the IBM PC, PC-XT, COMPAQ, COLUMB : 
seats aks = other PC eke ‘ sid 5 : MU Softwa sii 
115 Cannongate Ill, Nashua, NH 03063 
IBM, COMPAQ, MPC, and FORTH-32 are trademarks of IBM, COMPAQ, Columbia Data Products, and Quest Research, respectively. : 60 3 -8 80 -94 1 6 


SEND CHECK OR MONEY ORDER 


™ Call today toll-free or 


Circle no. 55 on reader service card. 


Circle no. 40 on reader service card. sis 
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Don't just put your applications in windows—put windows in your 
applications with VSI—the window manager. 

VSI is a high-speed screen management tool. You can create up to 255 
simultaneously active overlapping windows—large or small—for any 
apne =e —= application program. Read to or write from any window and display them 








1) DISP eacWUSi bat Aw pune with borders and user declared priorities. VSI is callable from any com- 


2) ENTE| SELECT MASTER FILE BAS 15-83 piled language and supports all color and monochrome video attributes. 
3) UPDABEMASy EXE 11-87-83 


PEM IT]|2) PROD MESA maT LST 11-87-83 . 
S) SYST|3) VEND|1) ADD NEW RECORD naP 11-87-83 Cut Development Time 















: VSI's powerful primitives simplify your screen management chores 
Oe with a complete library of functions. And you can preview and edit your 
PRODUCT NUMBER: 123456 screen layout before you actually program it. 


ROCUCT NAME: 7 5 pe 
steam hath eactatnt teint But that’s only the beginning. 
COST: 19.23 QUANTITY OM HAND 18265 


PRICE: 62.56 REORDER POINT 2886 3 Free Demo Disk : ; 
Use the up and down arrow/PRODUCT DESCRIPTION: Reverse metaf lange for Our free hands-on demo disk will have you doing windows, too. 
hi espn agence bela) [abt leita natant Return the coupon with $4.50 for postage and handling. 
P t4 * ° 
Prcas (ESC) te axit from this uses. MasterCard or Visa accepted with phone orders only. 
Pete leb Sater codad te Stop) bloke Inher odd ros VSI is used with IBM PC, XT and compatibles as well as TI 


Professional, and Wang PC. 


I develop software for 8086/8088 based machines and I want to do windows, too. 
I'm enclosing $4.50 for postage and handling. Please send me your free demo 
disk. My business card is attached. (Offer expires December 31, 1984) 




















| 
| Computer: 
AMBER SYSTEMS, INC. | ja 
1171 S. Sunnyvale-Saratoga Road 
San Jose CA 95129 | Company. 
(408) 996-1883 | Address 
Copyright 1984 Amber Systems. Inc. "ics Saas Ea: Ree ONES rT ET 
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CC (Listing Continued, text begins on page 40) 


Listing Two 


extern —bputchard()s /* Ce) write char c uninterpreted to FILE #_cfp */ 
~Cfps 
~drived)s /* BDOS function 25: current drive number */ 
Ccalloc()s 4* €nel) return NULL or -) n elements of length 1 */ 
exitd)s /* terminate program execution */ 
felose(),: /* Cf) close file described by f */ 
fopen()s /*® (nem) return NULL or descriptor for file “n" 


Opened to append (m == “a") #/ 


fseek()s /%* Cfepsw) position f to byte or sector p measured 
according to w */ 
strepy ()s /* Casb) copy string b to string a */ 
strlen(d)3 /* (Ss) return number of characters in string s */ 
/* 
* global data 
*/ 


int # submits 


/* stack of submitted buffers */ 


submit (s) /%* add command to CP/M job stream */ 
/* returns argument or NULL */ 
/* on NULL argument: submits and exits */ 
char * s3 /* command to submit */ 
{ FILE *fp3 /* need to use block i/os NOT pute */ 


char *cpi 


int *wp» 


is 


/* if string argument; save it as a command */ 


if (s) 
+ 


} 


if (strlen(s) > 126) 


return NULLS /* too long */ 

if (C€wp = calloc(strlen(s)+2+251)) == NULL) 
return NULLS /* no room */ 

#wp = submits 

—~submit = wp} 


cp = ~submit+15 


¥#cep = strlen(s)3 /* length byte */ 
strepy(Ccptis s)5 /* text */ 
return $5 


/* if anything to submit - write it to at$$$.sub */ 
if (_submit) 


{ 


if (Cfp = fopenC"ai$$$.sub"» “a")) == NULL) 


return NULLS /* cannot make batch file */ 
if (fseek( fp» O» 10) == -1) 

goto errors 
-~cfp = fps /*® for _bputchar() #*/ 


/*® last command: reselect current drive */ 
~bputchar (2) § 
~bputchar(_drive()+’a’)§ 
~bputchar¢’:’)5§ 
FOR Ck wiete.d to £273,041) 
—Hbputchar(O) 3 
/*® check last byte in sector for overflow */ 
if €_bputchar(0)) 
goto errors 


/* other commands from stack */ 
do 


incertae nee ssdeonnsnsn nannies serctmstinan oii ve! wanes, <oescns 
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anne e eee eee ee er errr ——$§ 


errors: 
} 
/* exit 
exitd) 5 
} 


Listing Three 


#include (stdio. 
extern strepy) 


mainCarges argv) 


{ cp = -submittls 
for Ci = OF i ¢€ 1275 ++1) 
{ ~bputchar(#cp)§ 
if C#*cp) 
++Cp3 
} 
if (C_bputcharc*#cp) == EOF) 
{ 


felose (fp) s 
return NULLS /* overflow */ 


} 
+ while (submit = * -submit)3 


/* signal CCP to select a: and user O */ 
cp = DSKBYTESs 
*¥cp = O§ 


this program and perform warm start +*/ 


End Listing Two 


h)> 
s Streat(),» submit )s puts) § 


int argc’ 
int *argvi 


{ int i3 


Char bufC128]3$ 


switch Carge) ¢{ 


default: 


case 2: 
case 1: 


Ps 


SstrepyCbufs “bix "95 

for Ci=25 itfarges ++i) 

{ strepy(buf+4s argvlil)3 
submit (buf) § 

F 


putsCargvlid); 


2 
5 


if Csubmit(NULL) == NULL) 


puts(“oops") § 


End Listing Three 
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A New Library for 


Small-C [Part Il] 








In December 1982 and January 1983 we presented version 2.0 
of the Small-C compiler by James Hendrix. Last month Hen- 
drix and Ernest Payne presented their enhanced library for the 
compiler, as well as code which upgrades the compiler to ver- 


sion 2.1. This month completes the listing of the library. —Ed. 


Small-C Library 

Listing Two 

(Continued from May issue page 81) 
File: FSCANF.C 


1 #define NOCCARGC /# no argument count passing *#/ 

zit 

3 ## Yes, that is correct. Although these functions use an 
4 ## argument count, they do not call functions which need one. 
J #/ 

6 #include stdio.h 

7 /t 

8 ## fscanf(fd, ctlstring, arg, arg, ...) - Formatted read, 
9 ## Operates as described by Kernighan & Ritchie. 

10 ## b, c, d, 0, S, U, and x specifications are supported. 
11 #* Note: b (binary) is a non-standard extension. 

12 #/ 

13 fscan¢(arac) int argc; { 

14 int #nxtarg; 

15 axtarg = CCARGC() + kargc; 

16 return (_scan(#(--nxtarg), --nxtarg)); 

17} 


19 /# 

20 ## scanfictistring, ara, arg, ...) - Formatted read. 

21 ## Operates as described by Kernighan & Ritchie. 

22 ## b, c, d, 0, 5, U, and x specifications are supported, 
23 ## Note: b (binary) is a non-standard extension. 

24 #/ 

25 scanf(argc) int arocy ¢ 

26 return (_scan(stdin, CCARGC() + &arge - 1))3 

zi-- 3 

28 

29 it 

30 ## scan(fd, ctlstring, arg, arg, ...) - Formatted read. 


by James Hendrix and Ernest Payne 


Copyright © 1984 L. E. Payne and J. E. Hendrix. 


James Hendrix, Box 8378, University, MS 38677-8378. 
Ernest Payne, 1331 W. Whispering Hills Dr., Tucson, AZ 85704. 


Unix is a trademark of AT&T Bell Labs. MACRO-80 is a trade- 
mark of Microsoft Inc. 


31 ## Called by fscanf() and scan¢(), 

32 #/ 

33 _scan(fd,nxtarg) int fd, #nxtarg; { 

34 char #carg, #ctl, #unsigned; 

35 int #narg, wast, ac, width, ch, cnv, base, ovfl, signs 
360 ac = 03 

37. ctl = #nxtarg--; 

38 = while(#ctl) ¢ 

39 if(isspace(#ctl)) {++etl: continues?) 

40 if(#ctl++ '= ‘Z‘) continue; 

4} if(#ctl == ‘'#') {narg = carg = wast; ++ctls) 
42 else narg = carg = #nxtarg--; 

43 ctl += utoi(ctl, &width): 

sa if('width) width = 32767; 

45 i¢('(cnv = #ctl++)) break; 

46 while(isspace(ch = fgetc(td))) 3; 

47 if(ch == EOF) {if (ac) break; else return (EOF);) 
48 ungetc(ch, fd); 

49 switchicny) ¢ 

00 case ‘Ct 


a1 tcarg = foetc(td); 

92 break; 

33 case ‘St 

34 while(width--) { 

ee if((#carg = foetc(#d)) == EOF) break; 

24 if (isspace(#carg)) break; 

q7 if(carg '= &wast) ++carg; 

58 } 

a7 #carg = 0; 

60) break; 

bi default: 

62 Switchicny) ¢ 

63 case ‘b’: base = 23 sign = 13 ovtl = 327673 break; 
&4 case ‘d's base = 103 sign = 0; ovfl = 32763 break; 
45 case ‘o's base = 8; sign = 1: ovfl = 8191; break; 
bb case ‘u's base = 10; sign = 1; ovfl = 65933 break; 
67 case ‘x's: base = 16; sign = 1; ovfl = 4095; break; 
68 default: return (ac); 

69 } 

70 #narg = unsigned = 0; 

71 while(width-- && ‘isspace(ch=fgetc(fd)) && ch!sE0F) ¢ 
72 if ('sign) 

73 if(ch == ‘-') {sign = -13 continues) 

74 else sign = |; 

75 if(ch <¢ ‘O°) return (ac); 

76 if(ch >= ‘a’) ch -= 87; 

77 else if(ch >= ‘A’) ch -= 55; 

78 else ch -= ‘0’; 

79 if(ch >= base {i unsigned > ovfl) return (ac); 

80 unsigned = unsigned # base + ch; 

81 } 

82 #narg = sign * unsigned; 

83 

84 ++ac; 

85 ) 


eee 
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aE 


86 return (ac); 
87 6} 
88 


File: FWRITE.C 


1 #define NOCCARGC /# no argument count passing #/ 
2 Winclude clib. def 

3 extern int statusl); 

4 /# 

) ## Item-stream write to fd. 


6 ## Entry: buf = address of source buffer 
7 #4 $2 = size of items in bytes 

Q ## n = number of items to write 
9 #4 fd = file descriotor 


10 #* Returns a count of the items actually written or 
11 ## 2ero if an error occurred. 

12 #*# May use ferror(), as always, to detect errors. 

13 #/ 

14 fwrite(but, sz, n, fd) char #bufs int sz, n, fds ¢ 
15 int cnt; 

16 if (lent = write(fd, buf, n#sz)) == -1) return (0): 
17s return (ent): 

1B) 


20 /# 

21 *## Binary-stream write to ¢d, 

22 #* Entry: fd = file descriptor 

23 #4 buf = address of source buffer 

24 + h = number of bytes to write 

25 ## Returns a count of the bytes actually written or 
26 ## -1 if an error occurred, 

27 #* May use ferror(), as always, to detect errors. 
28 #/ 

29 write(fd, buf, n) int fd, n3 char #buf: { 

30s char #cnt; /# fake unsigned #/ 


SL —scnt = 0; 

32. while(n--) ¢ 

3 write (*buf++, ¢d)s 

34 if( status{fd) & ERRBIT) return (-1); 
30 t+cnt; 

36 } 

37s return (cnt): 

38} 


Files GETARG.C 


1 #define NOCCARGC /* no argument count passing #/ 
2 #include stdio.h 


3 /# 

4 #4 Get command line argument. 

5 ## Entry: n = = Number of the argument. 

6 ## S = Destination string pointer. 

7 #4 size = Size of destination string. 

B #4 argc = Argument count from main(}, 

9 #4 argv = Argument vector(s) trom main(). 


10 ## Returns number of characters moved on SUCCESS, 
11 ## else EOF, 

12 #/ 

13 getarg(n,s,size,argc.arav) 

14 int ny char #5: int size, argc, argvl]; ¢ 

15 char *str; 
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16 int 3 

17) if (mf Ot nm = arac) ¢ 
18 #5 = NULL; 

19 return EDF; 

20 } 

Zi i = 03 

22 = str=argqvin; 

23) )sowhile(i<size) { 

24 if ((sCil=strfil)==NULL) break; 
20 +413 

26 } 

27 ~—s sCiJ=NULL; 

28 soreturn i: 

29} 


Files GETCHAR.C 


1 #define NOCCARGC /# no argument count passing #/ 
2 #include stdio.h 

34% 

4 ## Get next character from standard input. 

D #/ 

6 getchar() ¢ 

7 return (fgetc(stdin)); 

8 ) 


File: ISALNUM.C 


1 /# 

2 ## return ‘true’ if c is alphanumeric 
3 #/ 

4 isalnum(c) int cs { 


9 return ((e<='z' && cd=’a') |} 
6 (c<=‘Z' && cde’A') Tf 
7 (c<='9' && cd='0'))s 
8 ) 


Files ISALPHA.C 


1 /* 

2 ## return ‘true’ if c is alphabetic 

3 #/ 

4 isalpha(c) int cs { 

S return ((c<=’z' We cde’a’) TH! (cce'Z’ hh Cde'A'))s 
6 } 


Files ISASCII.C 


1 /# 

2 ## return ‘true’ if c is an ASCII character (0-127) 
3 #/ 

4 isascii(c) char #c; { 

S  /#¢ is a simulated unsigned integer +/ 

6 return (c <= 127); 

7 } 


Files ISATTY.C 
1 extern int devicel); 


2 /t 
3 ## Return "true" if fd is a device, else "false" 


(Continued on next page) 


af 








Small-C Library (risting continuea) 
Listing Two 


4 4/ 

5 isatty(fd) int td; ¢ 

6 return (_devicelfd)); 
7 } 


Files: ISCNTRL.C 


1 /# 

2 ## return ‘true’ if c is a control character 
3 ## (0-31 or 127) 

4 +/ 

5 isentri(c) char #c; { 

6 /#c is a simulated unsigned integer */ 

7 return ((c <= 31) ti (ec == 127))5 
gua 


File: ISCONS.C 


1 #include stdio.h 

2 #include clib. def 

3 extern int devicel); 

4 / 

5 ## Determine if fd is the console. 
6 */ 

7 iscons(fd) int fd; ¢ 

8 return (_device(fd] == CPMCON); 
9 } 


Files ISDIGIT.C 


1 /# 

2 ## return ‘true’ if c is a decimal digit 
3 #/ 

4 isdigit(c) int cy { 

S return (c<='9' && cd='0')} 

6 } 


File: ISGRAPH.C 


1 /* 

2 ## return ‘true’ if c is a graphic character 
3 ## (33-126) 

4 +#/ 

5 isgraph(c) int cs { 

6 return (c>#33 &R c<=126)5 

7} 


File: ISLOWER.C 


1 /# 7 
2 *## return ‘true’ if c is lower-case alphabetic 
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3 #/ 

4 islower(c) int cs; { 

3 return (c<#’2° && cde’a')} 
6 } 


Files ISPRINT.C 


1 / 

2 ## return ‘true’ if c is a printable character 
3 ## (32-126) 

4 +#/ 

5 isprint(c) int c; ¢ 

b return (c)=32 bk c¢=126)3 

? 7 


Files ISPUNCT.C 


{ #define NOCCARGC /# no argument count passing #/ 
2 /t 

3 ## return ‘true’ if c is a punctuation character 
4 *# (all but control and alphanumeric) 

a 

6 ispunct(c) int cs; ¢ 

7 return (‘isalnum(c) && !isentrl(c)); 

8 } 


File: ISSPACE.C 


1 /# 

2 ## return ‘true’ if c is a white-space character 
3h 

4 isspace(c) int c; ¢ 


5 /#* first check gives quick exit in most cases #/ 
6h returnic<=’ ' ke (cee | tt (eked Be cd=9)))5 

7 } 

8 


Files ISUPPER.C 


1 /# 

2 ## return ‘true’ if c is upper-case alphabetic 
3 #/ 

4 isupper(c) int cy ¢{ 

5 return (c<='Z’ && cd='A’); 

6 } 


File: ISXDIGIT.C 


1 /* 
2 ## return ‘true’ i¢ c is a hexadeciaal digit 


3 ## (0-9, A-F, or anf) (Continued on page 60) 
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Small-C Library (Listing Continued) 


Listing Two 
uM 2 It 
5 isxdigit(c) int cy ¢ 3 ## itod -- convert nbr to signed decimal string of width sz 
6 return ((cts'#' && cde'a’) 4 +# right adjusted, blank filled; returns str 
7 (c<=°P' RR CBA’) 1h 5 #4 
8 (c¢e'9" be c)='0')); b +4 if sz > 0 terminate with null byte 
ee 7 + if sz = 0 find end of string 
8 ## if sz ¢ 0 use last byte for data 
9 #/ 
File: IT0A.C 10 itod(nbr, str, sz) int nbry; char str(]; int sz; { 
11 char sgn; 
1 tdefine NOCCARGC /# no argument count passing #/ 12 if (nbr<o) inbr = -nbry sgn=’-"3) 
> It 13 else sgn=' ‘; 
3 ## itoa(n,s) - Convert n to characters in s 14 if (8290) str0--sz]=NULLS 
4 / 13 else if(sz<0) sz = -sz; 
5 itoa(n, s) char #53 int ny 16 else while(str(sz]!=NULL) +t+sz; 
6 int signs 17s while(sz) { 
7 char tptr; 18 str(--szJ=(nbrZl0+'0'); 
8 tr =s: 19 if ((nbr=nbr/10)==0) break; 
9 if ((sign =n) < 0) /# record sign #/ oy 
10 one-ny  /# make n positive #/ 21 if (sz) str(--szlesgny 
11 do { /# generate digits in reverse order #/ 22 while(sz00) strf--szJé 
12 #ptr+t en X10 + ‘0's /# get next digit #/ 23 return str; 
13} while ((n =n / 10) > Os /* delete it #/ 4 


14 if (sign < 0) #ptr++ = ‘-'; 
15 tptr = ‘\0'; 
16 reverse(s); 


Fj : 
17) iler 1700.C 


/* 
## itoo -- converts nbr to octal string of length sz 


Files ITOAB.C "4 right adjusted and blank filled, returns str 


1 #detine NOCCARGC /# no argument count passing #/ 
2 /# 
3 ## itoab(n,s,b) - Convert “unsigned” n to characters ins 


if sz > 0 terminate with null byte 
ut if s2 = 0 find end of string 
4 if sz ¢ 0 use last byte for data 


co ~ o CHAS WwW BR 
ae 
a 


using base b. */ 
4 +4 NOTE: This is a non-standard function. ? itoo(nbr, str, sz) int nbr; char str(]; int sz; ¢ 
5 +/ 10 int digit; 
6 itoab(n, s, b) int ns char #5; int by { Li if (s220) str-sz ]=0} 
7 char 4ptr; 12 else if ($240) 62 = -525 
8 int lowbit: 13 else while(strf[sz]!=0) ++s2z; 
9 ptr=s: . 14 =while(sz) { 
10 b d= ty 15 digitsnbr&7; nbr=(nbr>>3)&B191; 
{1 do { 16 str(--szJ=digit+48; 
12 lowbit =n & fs 17 if (nbr==0) break; 
13 n= (n>) 1) & 327673 re 7 
14 #ptr = (in Kb) << 1) + Lowbits o eee 
15s if (tptr < 10) #ptr += ‘0's else #ptr += 55; 20 return str; 
16 ++ptr; at) 


17 d while(n /= b); 
18 #ptr = 03 
19 reverse (5); 


3 File: ITOU.C 


1 #include stdio.h 
2 /t 


Files ITOD.C 3 ## itou -- convert nbr to unsigned decimal string of width sz 


1 #i 10. 
#include stdio.h (Continued on page 62) 
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SMALL} FOR IBM-PG 


Small-C Compiler Version 
2.1 for PC-DOS/MS-DOS 
Source Code included 
for Compiler & Library 
New 8086 optimizations 
Rich I/O & Standard Library 





C COMPILER 


e FULL C 

e UNIX* Ver. 7 COMPATABILITY 

e NO ROYALTIES ON GENERATED CODE 

@ GENERATED CODE IS REENTRANT 
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e UPGRADES & SUPPORT FOR 1 YEAR 
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TARGET TARGET TARGET TARGET 
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CBUG SOURCE LEVEL DEBUGGER FOR SMALL C 
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variables all on the 
source level 

Source code included 


Dataligh 


11557 8th Ave. N.E. 
Seattle, Washington 98125 


(206) 367-1803 


ASM or MASM is required with compiler. 

Include disk size (160k/3 20k), and DOS version with order 

VISA & MasterCard accepted. Include card no. & expiration date. 
Washington state residents include 7.9% sales tax. 

IBM-PC & PC-DOS are trademarks of International Business Machines 
MS-DOS is a trademark of Microsoft Corporation. 


Circle no. 19 on reader service card. Circle no. 72 on reader service card. 





*PCDOS is a trademark of IBM Corp. MSDOS is a trademark of MICROSOFT. 
UNIX is a trademark of BELL LABS. RT-11/RSX-11/PDP- 11 is a trademark of digital 
Equipment Corporation. FLEX/UNIFLEX is a trademark of Technical Systems 
consultants. CP/M and CP/M86 are trademarks of Digital Research. OS-9 is a 
trademark of Microware & Motorola. 


408-275-1659 
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1155 Meridian Avenue, Suite 218 
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changing it into a mind-blowing A 
interactive debugging experience! ma A wie mee a cia xis 
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¢ Stop on read/write data compare 2001:0007  SO3ESE~ 5] CMP DOS_VERSION_NUM,’2’ BREAKPOINT SET 


‘ 2001:000C 7305 JAE TRASH _IT 
e Cursor forward/backward thru full-screen disasm 2001:000E  BB0100 MOV BX,Offset VECTOR_ TABLE _1 


: : 2001:0011 EB02 JMP Short LONG_LABELS_ARE_OK_AS_YOU_LIKE 
and Hex-ASCII dump pages with single keystrokes 2001:0013 F2AB TRASH_IT: REPNZ STOSW ;STOP 777th TIME 


; 2001: 0015 LONG LABELS _ ARE _OK_AS_ YOU _LIKE: 
? Simple keystroke commands throughout 2001:0015 8DAD63- LEA BP,WIERD_CODE + 2(D1) 


¢ Halt on subroutine/LOOP completion ie A allie, inact: 4: 
e Single-step over CALL, INT and REP gore nage 

¢ Counter-triggered breakpoints; path counters 186-0080 20-20 20 20 49 GF Gt SOG2 GD G9 74 GF 20 38 56 CadeSmith-O 

¢ Nifty stack display; AUTOSTEP/DUMP mode Mi num anngangan no 00990 Neus 
e SCREENSAVE mode (on memory-mapped video 


systems) saves/restores user's graphic display when CALL US FOR TECHNICAL ANSWERS (213) 439-2414 
breakpoint hit 


CodeSmith-86 is available to run directly on both IBM-PC Compatibles under MS-DOS or as an Intel 
.EXE-format Standalone control program suitable for ROM or downloading 
PC-DOS or MS-DOS Version 1.8, $145. Standalone Version S1.8, Call for Quotation. 


OEM inquiries invited. Vi SUAL AGE 


642 N. Larchmont Blvd. « Los Angeles, CA 90004 ¢ (213) 439-2414 


COD/Blue Label CodeSmith, TM International Arrangements Inc.; MS, TM Microsoft Corp.; IBM, TM International Business Machines Corp. 
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LYNA 


the professional’s replacement 
for Microsoft L80 


LYNX™ DOES 
EVERYTHING L80™ DOES AND MORE! 


LYNX™ LETS YOU USE ALL AVAILABLE MEMORY. 


You can create COM files that are 10K larger— 
without overlays—by replacing L80 with LYNX. 


LYNX™ IS A FULL OVERLAY LINKER 


Running twice as fast as its nearest competitor, 
LYNX is tree structured, multi-segmented and multi- 
leveled, with automatic or explicit overlay invoca- 
tion. You can run programs that are larger than avail- 
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LYNX and GrafTalk are trademarks of Redding Group, Inc. L80 is a trademark of 
Microsoft. AZTEC C is a trademark of MANX Software Systems. : 
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Small-C Library (Listing Continued) 
Listing Two | 


4 #4 right adjusted, blank filled; returns str 
5 #4 

6 ## if sz > 0 terminate with null byte 

7 #4 if sz = 0 find end of string 

B ## if sz ¢ 0 use last byte for data 

9 #/ 


10 itou(nbr, str, sz) int nbr; char strf]y int sz; ¢{ 
11 = int lowbit; . 

12 if(sz>0) str{--szJ=NULL; 

13 else if(sz<{0) sz = -52; 

14 «else while(str(sz]!=NULL) ++s2; 

15 while(sz) { 

16 lowbit=nbr&l; 

17 nbr=(nbr>>1)&32767; /# divide by 2 #/ 
18 str(--szJ=((nbr45)<<1)+lowbit+ 0°; 

19 if ((nbr=nbr/5)==0) break; 

20 ) 

21 while(sz) str{--szj=' '; 

22 ~=return str; 

23.) 


File: ITOX.C 


1 /# 

2 ## itox -- converts nbr to hex string of length sz 

3 ## right adjusted and blank filled, returns str 
4 #4 

) ## if sz > 0 terminate with null byte 

b ## if sz = 0 find end of string 

7 ## if sz < 0 use last byte for data 

8 #/ 


9 itox(nbr, str, sz) int nor: char str(]; int sz; ¢ 
10 int digit, offset; 
ii if (sz>0) str(--szJ=0; 
12 else if(sz<0) sz = -sz;3 
13 else while(str(sz]!=0) ++sz; 
14 ~while(sz) { 
15 digit=nbr&i5; nbr=(nbr>>4)&4099; 
14 if(digit<10) offset=48; else offset=39; 
17 str(--szl=digit+ottset; 
18 if (nbr==0) break; 
19 ) 
20 «=while(sz) str{--szJ=' °; 
21 return str; 
“a: 


Files LEFT.C 


1 /# 

2 ## left -- left adjust and null terminate a string 
3 #/ 

4 left(str) char *str; { 

3 char #str2; 

str2=str; 

while(#str2==' ‘) ++#str2; 

while(#str++ = #str2++); 

} 


oo ~~ o& 
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File: LEXCHP.C 


1 #define NOCCARGC /# no argument count passing #/ 


2 /* 

3 ## lexcap(s, t) - Return a number <0, 0, or 0 
4 ## as 5 is ¢, =, or >t. 

D #/ 


6 lexcap(s, t) char #5, #t; { 
7 while(#s == #t) { 
8 if(*#s == 0) return (0); 


9 ++5: +t; 

10 ) 

lis return (lexorder(#s, #t)); 
| ae 

13 

14 /* 

15 ## lexorder(ci, c2) 

16 ## 


{7 ## Return a negative, zero, or positive number if 
18 ## cl is less than, equal to, or greater than c2, 
19 ## based on a lexicographical (dictionary order) 
20 ## colating sequence. 

21 ## 

22 */ 

23 char _lex{128) = ¢ 

24 /#44# NUL - / #84%/ 

25 000,001,002, 003,004 ,005,006,007,008,009, 

26 010,011,012,013,014,015,016,017,018,019, 

27 020,021 022,023,024 ,025,026.027,028,029, 

28 030,031,032, 033 034,035,036 ,037,038,039, 

29 040,041 042,043,044 ,045,046,047, 


30 [84% 0-9 4444/ 

31 065,966, 067,068,069,070,071,072,073,074, 
32 (ete 55 C= > 7 @ ttee/ 

33 048,049, 050,051 ,052,053,054, 

34 (48% A-] #44%/ 


35 075,076,077,078,079, 080,081 082,083,084, 085,086,087, 
36 088,089, 090,091,092, 093,094, 095,096,097 ,098, 099,100, 


37 /teet [ \ ] %  * teee/ 
38 055,056, 057,058,059, 060, 
39 [REE a-z 4H44/ 


4() 075,976 ,077,078,079, 080,081 ,082,083,084, 085,086,087, 
4} 088, 089,090,091, 092,093,094, 095,096,097, 098,099,100, 
4? /#eee { | > % BeeE/ 

43 061,062,063,064, 

44 /eeee DEL #444/ 


4) 101 
46 d} 
47 


48 lexorder(ci, c2) char cl, c2s ¢ 
49s return(_lex(cl) - _lex{c2]); 
00} 


Files MALLOC.C 


1 #define NOCCARGC /* no arguaent count passing #/ 
2 #include stdio.h 

3 /% 

4 ## Memory allocation of size bytes. 

2 ## size = Size of the block in bytes. 

6 ## Returns the address of the allocated block, 


7 *# else NULL for failure. (Continued on next page) 


en Se 5 er eS eee te 
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NGS FORTH 
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CALIFORNIA RESIDENTS : 
INCLUDE 6.5% SALES TAX. 


(i 


NEXT GENERATION SYSTEMS 
P.O.BOX 2987 | 
SANTA CLARA, CA. 95055 

(408) 241-5909 
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Small-C Library (Listing Continued) 
Listing Two 


B #/ Files PUTCHAR.C 
9 malloc(size) char #size; { 
10 return (_alloc(size, NQ)); 1 #define NOCCARGC /# no argument count passing #/ 
ib} 2 #include stdio.h 
3 /t 
Files OTOI.C 4 #* Write character to standard output. 
3 #/ 
i #include stdio.h 6 putchar(ch) int chy ¢ 
2 /* 7 return (fputc(ch, stdout)); 
3 ## otoi -- convert unsigned octal string to integer nbr g 
4 #4 returns field size, else ERR on error 
5 #/ 
6 otoiloctstr, nbr) char #octstr; int #nbr; { Files PUTS.C 
7 int d,t; d=0; 
8 #nbr=0; 1 #define NOCCARGC /# no argument count passing *#/ 
9 while((#octstr>='0')&(#octstr<='7')) ¢ 2 #include stdio.h 
10 t=#nbr3 3 /# 
i t=(t<<{3) + (#octstr+t - '0')5 4 #4 Write string to standard output. 
12 if ((t>=0)&(#nbr<0)) return ERR; aD #/ 
13 d++; #nbr=t; 6 puts(string) char #string; { 
14 } 7 fputs(string, stdout); 
15 return d3 8B fpute(‘\n', stdout); 
16} 9 } 
Files PAL.C Files RENAME.C 
1 #define NOCCARGC /# no arqument count passing */ 1 #define NOCCARGC /# no arguaent count passing *#/ 
2 it 2 #include stdio.h 
3 #% Place n occurrences of ch at dest. 3 #include clib. def 
4 +/ 4 /% 
5 pad(dest, ch, n! char #dest, #ny; int chy { 5 ## Renane a file. 
6 /#n is a fake unsigned integer #/ 6 ## fron = address of old filename. 
7 while(n--) #dest++ = chy 7 #*# to = address of new filename. 
8} ,8 ## Returns NULL on success, else ERR. 
9 #/ 
10 rename(from, to) char #from, #to; { 
Files POLL.C 11 char ¢cbCFCBSIZE); 
12 pad(fcb, NULL, FCBSIZE); 
1 #define NOCCARGC /# no arquaent count passing #/ 13 if (!_newfeb(to, feb) {i _bdos(QPNFIL, feb) '= 299) ¢ 
2 include stdio.h 14 _bdos(CLOFIL, fcb); 
3 #include clib.de¢ 13 sreturn (ERR); 
4 /# 16 } 
5 ## Poll for console input or interruption 17 if(_newfcb(from, feb) && 
6 #/ 18 _newfcb(to, fcb+NAMEQFF2) && 
7 poll(pause) int pause; ¢ 19 _bdos(RENAME, fcb) != 255) 
8 int i; 20 return (NULL); 
9 i = bdos(DCONIO, 255); 21 return (ERR); 
10 if(pause) { i 


if if(i == PAUSE) { 
12 while('(i = _bdos(DCONIQ, 255))) ; 


13 if(i == ABORT) exit(0)s Files REVERSE, C 

14 return (0); 

15 } 1 #define NOCCARGC /# no argument count passing #/ 

16 if(i == ABORT) exit(0); 2 /* 

17 } 3 ## reverse string in place 

18 «return (i); 4 #/ 

| ee 5 reverse(s) char #5; ¢ (Continued on page 66) 


eee 
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edward k ream 


FULL SCREEN EDITOR 
with 
FULL SOURCE CODE in C 


for 


CP/M 68K or CP/M 80 


e RED is a powerful yet simple full screen text 
editor for both programmers and writers. 


¢ RED features 17 commands including block 
move, block copy, search and substitute. 


© RED comes with full source code in 
standard C. RED works as is with the 
BDS C, Aztec CII and Digital Research 
Compilers. 


¢ RED supports a// features of your terminal. 
You tailor RED to your terminal with an 
easy-to-use configuration program. 


© RED handles files as large as your disk. 


¢ RED is guaranteed. If for any reason you 
are not satisfied with RED, your money will 
be refunded promptly. 


Price: $95. 


Call today for more valuable information: 
(608) 231-2952 


To order, send a check or money order to: 
Edward K. Ream 


1850 Summit Avenue 
Madison, Wisconsin 53705 


s~ 
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- 
s-- 
so. 
es 


: = “We bought and evaluated over $1500.00 worth of 
ce : ‘C’ compilers. ..C /80 is the one we use.’ 


Dr. Bruce E. Wampler, Aspen Software 
author of ““Grammatik® 
‘Full featured C Compiler for CP/M® with 
= |/0 redirection, command expansion, 
: execution trace and profile, initializers, 


= 
= 
"eo" 
eed 
<5 

- 


; : Macro-80 compatibility, ROMable es 


Seetesre 


: detailing Our programming languages LISP/80, 
RATFOR, Assemblers, and 25 other CP/M products. 


SURKRMEM MEM MMO ee 
TOVPEPEET EET EST eeeesys 
CRERLURCEO ODER OE RAGS 


(213) 986-4885 ==: 
__ Dealer inquiries invited. : 


FOR $29.95, DISK INSPECTOR MAKES 
YOU A SHERLOCK HOLMES 
OF THE COMPUTER! 


Ever wonder what happened to that erased or lost file? Did text 
suddenly disappear and can’t be found? Did a bad sector do strange 
things to your files? Then track them down with Disk Inspector! 
Rated “Excellent” by INFOWORLD, Disk Inspector is a utility that 
pays for itself with the first recovery. Even more, Disk Inspector 
allows you to use the Auto-Load feature of CP/M, blank out bad 
sectors, create multiple entries, small files, all without any knowledge 
of programming! Just $29.95, plus $2.00 postage and handling, 
you become the chief inspector. Sold with the usual 
Overbeek 30 day money-back guarantee. 


MAKE ME A CHIEF INSPECTOR! Enclosed find check for $31.95 or 
charge my Mastercard#_ SSE press: 
Visee on eS se ee es: 


Check format desired: 

__8” SSSD __Osborne Single Density __KayPro II 
__Superbrain __Osborne Double Density __NEC 5” 
__Northstar Advantage __Morrow Micro Decision __ Televideo802 
__Northstar Horizon __ Xerox 820 Single Density __ALTOS5 
__Apple/Softcard __ Xerox 820 Double Density __Epson 


I’m not ready to order now, but send me information about all the 
affordable programs from Overbeek Enterprises. 


Name 


Your order will be mailed to you within one week. Sorry, I can Address 

not handle credit cards. Please do not send purchase orders City State Zip 

unless a check is included. RED is distributed only on 8 inch OVERBEEK ENTERPRISES, P.O. Box 726D, Elgin, IL 60120 
CP/M format disks, but other disk formats are available 31 9-697-8420 


through third parties. CP/M is a trademark of Digtital Research. 


Disk Inspector— another affordable program 


Dealer inquiries invited. 
5 from Overbeek Enterprises. 


‘Circle no. “4 on re ader service card. 








Small-C Library (Listing Continued) 


Listing Two 


6 char #j; 

7 int cy 

8 js + strlen(s) - 1; 
9 while(s ¢ j) { 

1 Se Eee) 

11 #gtt+ = #); 

12 #j-- = C} 

13 } 

ie. 

15 


Files REWIND.C 


1 #define NOCCARGC /* no argument count passing #/ 
2 /* 

3 ## Rewind file to beginning. 

4 #/ 

J rewind(td) int ¢d3 ¢ 

6 returnicseek(fd, 0, 0)); 

Peet 


File: SIGN.C 


1 /* 

2 #*# Sign -- return -1, 0, +1 depending on the sign of nbr 
ed : 

4 sion(nbr) int nbr; ¢ 

3  if(nbr>0) return 1; 

& i¢(nbr==0) return 0; 

7 return =13 

ae 


File: STRCAT.C 


1 /* 

2 ## concatenate t to end of s 
3 ## § must be large enough 

4 #/ 

9 strcat(s, t) char #5, #t; { 
6 char #d; 

7 dss} 

§' cmegs 

9 while (#++5) ; 
10) while (#s++ = #t++) ; 
{1 return(d); , 
Bese 


Files STRCHR.C 


1 /s 

2 ## return pointer to ist occurrence of c in str, else 0 
3 #/ 

4 strchr(str, c) char #str, c; { 

9 while(#str) ¢ 

6 if (#str == ¢) return (str); 


7 ++5try 

8 ) 

9 return (0); 
| eee 


Files STRCMP.C 


1 /# 

2 ## return <0, 0, >0 a_ording to 
3 ## s(t, s=t, sot 

4 +#/ 


J strcmp(s, t) char #s, #t; { 
6 while(#s == #t) { 

7 if(#s == 0) return (0); 
8 ++5: ++t3 


9 } 

10 return (#5 - #t); 
Yee 

12 


Files STRLEN,C 


1 / 

2 **# return length of 5 
3 #/ 

4 strlen(s) char #5; ¢ 
char #t; 

f= .¢ -71s 

while (#++t) ; 
return (t - 5); 

} 


oo ~ o& cH 


File: STRCPY.C 


1 /# 

2 *## copy t tos 

3 #/ 

4 strcpy(s, t) char #s, #t; { 
2 char #3 

d= s; 

while (#s++ = #t++) ; 
return(d); 

} 


oo ms Oo 


File: STRNCAT.C 


1 /# 

2 *# concatenate n bytes max from t to end of 5 

3 ## s must be large enough 

4 #/ 

J strncat(s, t, n) char #5, #t; int ns { 

6 char #d; 

(. -€ © 43 7 
(Continued on page 68) 


™ ee Sesser seats 
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PC-Write™ by Vy __ LEO ELECTRONICS, INC. 


The Capable, Comfortable Word Processor for A ea ee 
the IBM PC, PCjr, and Compatible Computers. | wt HI (213) 212-6133 » (800) 421-9565 
Shareware: help us distribute PC-Write by ec Telex: 291 986 LEO UR 


copying and sharing the unmodified diskette! 


The Word processor: ™ PRICE! 


Includes wordwrap, search/replace, justify, help screens, 0 J 
block move/copy/delete, headers/footers, bold/underline, U A L T Y ° 
many other features for writing and printing of text. 


Dr. Dobb's Readers: SERVICE! 


PC-Write is a great program editor! Fast and easy to use. : 
Features: standard MS-DOS files, jump to numbered line, 4116 (150ns) 


split screen editing of two files, horizontal scrolling, 16K UPGRADE 
set bookmark, redefine and record keys, edit in color. / 4116 (200ns) : 
4164 (150ns) 


source Diskette: 4164 (200ns) 64K UPGRADE 


IBM/MS-Pascal and assembly. Does DOS 1./2. disk space, 6116P-3 

EXEC of COMMAND, PATH = file prefix search. Link without EPROMS 

the Pascal library and use files, keyboard, and screen. ee ee : 
By the MS-Pascal designer. (sources are not shareware). 2708 3.00 2532 4.50 


tes 2716 3.20 2732 3.95 
Programs and manual on diskette: $10 TMS2716_4.75__2764 7.00 


Registration (with source diskette, TERMS: Check, Visa, Mastercard. Call for C.O.D. 
printed manual, support, more): $75 | [esti ofr gre pg Ap mae $5.00 for Are 
VISA/Mastercard: call 206/282-0452 ALL PARTS 100% GUARANTEED 

219 First N #224, Seattle WA 98109 Pricing subject to change without notice. 


Circle no, 57 on reader service card. Circle no.34 onreaderservicecard. —_«T 


HOW FAST WOULD THIS PROGRAM RUN 
IF IT WERE COMPILED USING YOUR PASCAL COMPILER ? 


PROGRAM SIEVE: 
‘ THE ERATOSTHENES’ SIEVE BENCHMARK } Chances are, not as fast as it would if it were compiled 


using SBB Pascal. 
T 
ee ere “pba As the following benchmarks show, SBB Pascal 
VAR |. PRIME, K, COUNT, ITER : INTEGER: outperforms all other Pascal compilers for the PC in terms 
FLAGS : ARRAY [ 0. ‘SIZE ] OF BOOLEAN: of speed, code size and .EXE file size: 


BEGIN Execution Code EXE File 
WRITELN( ‘START’ ): Time Size Size 
ee er TO 10 DO BEGIN (secs) 


ae & fa 0 TO ae DO FLAGS[ | ] := TRUE: SBB Pascal 10.90 181 4736 


FO TO SIZE DO 
PELAGSII ITHEN BEGIN 
Sipe ee 
K:= 1+ PRIME: | MS-Pascal 11.70 27136 
WHILE kas SIZE DO BEGIN : 
FLAGS[ K ] := FALSE: 
K = K+ PRIME Pascal/MT+ 86 14.70 10752 
COUNT = COUNT + 1 
ND; Turbo Pascal 15.38 9029 


END: 
WRITELN( COUNT, ‘PRIMES’ ) 
END. 


Development Package 
$350.00 


Soft ware Personal Use Compiler Package 607/272-2807 
Building also available Software Building Blocks, Inc. 


2 loc ko™ $95.00 Post Office Box 119 
Call for free brochure with full benchmarks. Ithaca, New York 14851-0119 


SBB Pascal is a trademark of Software Building Blocks, Inc. MS-Pascal is a trademark of Microsoft Corporation. Pascal/MT + 86 is a trademark of Digital Research, Inc. 
Turbo Pascal is a trademark of Borland International. 
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Small-C Library (Listing Continued) 
Listing Two 


Ba "Bs 

9 while(#++s) ; 

10 = while(n--) ¢ 

1! if (#st+ = #t++) continue; 
12 return(d)3 


13 } 

14 #s = 0; 

15s return(d); 
16} 


File: STRNCMP.C 


1 /# 

2 ## strncmp(s,t,n) - Compares two strings for at most n 
3 ## characters and returns an integer 

4 +t 0, =0, or <0 as § is Dt, =t, or <t. 
Q #/ 


6 strncap(s, t, n) char #5, #t; int ny ¢ 
7 while(n && #s==#t) { 

8 if (#s == 0) return (0); 

9 RIGS SCE ene 

10 ) 

iis if (n) return (#5 - #t); 

12 return (0); 

Roa’ 


Files STRNCPY,C 


1 /# 

2 ## copy n characters from sour to dest (null padding) 
3 #/ 

4 strncpy(dest, sour, n) char #dest, #sours int n; { 

2 char #d; 

6 d= dest: 

7 while(n-- > 0) { 

8 if(#d++ = #sour++) continue; 

9 while(n-- > 0) #d++ = 0; 


10 ) 

11 td = 05 

12 return (dest); 
3} 


Files STRRCHR,C 


1 /* 

2 ## strrchr(s,c) - Search s for rightmost occurrance of c. 
5 t# § = Pointer to string to be searched. 

4 ## ¢ = Character to search for. 

J ## Returns pointer to rightmost c or NULL. 

6 #/ 

7 strrchr(s, c) char #s, c; { 

8 char #ptr; 

9. ptr =. 03 
10 while(#s) { 


if if(*ss=c) ptr = 5: 


12 ++5: 

13 } 

14 ~return (ptr); 
a 


File: TOASCII.C 


1 /# 

Z ## return ASCII equivalent of c 
3 #/ 

4 toascii(c) int cy { 

3 return (c); 

5 = 


File: TOLOWER.C 


1 /# 

2 *#* return lower-case of c if upper-case, else c 
3 #/ 

4 tolower(c) int cs ¢ 

D9 i¢tte<='Z' && cd='A') return (c+32); 

6 return (c); 

foster 


File: TOUPPER.C 


1 /# 


"2 #6 return upper-case of c if it is lower-case, else c 


3 #/ 

4 toupper(c) int c; { 

J iftc<t=’z' && cd=‘a’) return (c-32); 
6 return (c); 

ee 


File: UNGETC.C 


1 @define NOCCARGC /# no argument count passing #/ 
2 #include stdio.h 

3S extern nextcl); 

4 /% 

9 ## Put c back into file fd. 

6 ## Entry: c = character to put back 

7 ## fd = file descriptor 


8 ## Returns c if successful, else EOF, 
9 #/ 


10 ungetc(c, fd) int c, fds { 


ears tee i 


68 


Dr. Dobb’s Journal, June 1984 














EEE SET IE TEI EITE LS OLDE LD DEE LIAL CLES LEE ELL AL SEE DRT NE EET IIE DLE LDL LED ELLE DE LEAL LEAL LE LOC ELLE LE LEED LLL L LLL LEADED ILO ELE ADE CCE LON EE LTD ILE LEER TELE IDOL LL LEAL ELE SER IIE a AEA DELETE EDEN ERED, GE LELLLEED LEDS DEI LE LDE TE LET D EL LL LEDER AL LL LTE ELLE TEE OT LEE LLL LTE LE DAE TELE IEEIDTE 


ti if (!_mode(fd) ti _nextc(fd]!=E0F i: c#=E0F) return (EOF); 


12 return (_nextclfd) = c); 
ive 


Files UNLINK.C 


1 @define NOCCARGC /# no arg count passing #/ 
Z #include stdio.h 

3 #include clib.def 

4 /* 

5 #* Unlink (delete) the named file. 

4 ## Entry: fn = Null-terminated CP/M file name. 


7 ## May be prefixed by letter of drive. 
@ ## Returns NULL on success, else ERR. | 
9 #/ 


10 unlink(fn) char #tn; { 

11 char f¢cbCFCBSIZE); 

12 pad(fcb, NULL, FCBSIZE); 

13 if (_newfcb(fn, feb) && bdos(DELFIL, fcb) '= 255) 
14 return (NULL); 

15 =o return (ERR); 


AS 

17 #asa 

18 delete equ unlink 
19 entry delete 
20 #endasa 


Files UTOI.C 


1 #include stdio.h 
2 /t 


3 ## utol -- convert unsigned decimal string to integer nbr 


NOW FOR THE 





IBM PC 
+ COMPATIBLES 


WINDOWS FOR C° 


4 #% returns field size, else ERR on error 
2 #/ 

6 utoi(decstr, nbr) char #decstr; int #nbrs { 

7 int d,t3 d=03 

B = #nbr=0; 

9 while((#decstr>='0')&(tdecstr<='9')) ¢ 

10 t=tnbrst=(10#t) + (#decstrt++ - ‘0')} 

if if ((t>s0)&(#nbr<0)) return ERR; 

12 d++; #nbr=t; 


13 } 
14s return d; 
ee 


Files XTOI.C 


1 #include stdia.h 


2 /* 

3 ## xtol -- convert hex string to integer nbr 

4 tt returns tield size, else ERR on error 
Q #/ 


6 xtoi(hexstr, nbr) char #thexstr; int #nbr; { 
7 int d,ts d=0; 


8 #nbr=0; 
9 while(l) 
10 { 


11 if ((#hexstr>='0')&(#hexstr<='9')) t=483 

12 else if((#hexstr>=A'}&(#hexstr<='F‘)) t=55; 
13 else if ((thexstr>='a')&(#hexstr<='f')) t=B7s 
14 else break; 

15 if (d<4) ++ds else return ERR; 

16 tnbr=#nbr<<4; 


17 ¢nbr=#nbr+(thexstr++)-ts 


18 } 
19s return ds 
} 
End Listings 


SCREEN MANAGEMENT TOOL FOR C PROGRAMMERS 


COMPLETE WINDOW 
DISPLAY SYSTEM 


e Unlimited windows and text files 
e Horizontal and vertical scrolling 


e Variable text margins 
¢ ASCII file handling 


SIMPLIFY ¢ IMPROVE 
© Help files 
e Datascreens ® Editors 


ALL DISPLAYS 


e Menus 


ADVANCED FEATURES 


e Instant screen changes 

¢ Nosnow, no flicker 

e Word wrap, auto scroll 

e Overlay and restore windows 

e Change attribute of selected text 


C SOURCE MODULES FOR 
menus, cursor control, ASCII file 
display, text-mode bar graphs: 


+ complete building block 
subroutines 





Available For: Lattice C, C86, Microsoft C, DeSmet C (MS or PC DOS) 


Introductory Special $119.95 
($150 after May 31) 
Demo disk & manual $30 
(Applies toward purchase) 


A PROFESSIONAL SOFTWARE TOOL FROM 


CREATIVE SOLUTIONS 
21 Elm Ave., Box D5, Richford, VT 05476 





For Order or Information: 802-848-7738 
Master Card & Visa Accepted 
Shipping $2.50 
VT residents add 4% tax 
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Comments on 
“olxth Generation Computers” 





The dialogue between Michael Doherty 
and Richard Grigonis stretches back over 
the past year and a half. Having begun 
things in December 1982 with a brief dis- 
cussion of fifth generation computers, 
Grigonis held forth last month on what 
to expect in the sixth generation. Here 
are Doherty’s thoughts in reply. — Ed. 


ost readers may recall my previous 
MI confrontations with Richard Gri- 
gonis in the pages of Dr. Dobb’s 
Journal and how ridiculous he made me 
look with his article ‘‘And Still More Fifth 
Generation Computers” in August 1983. 
Naturally, it was with a feeling of great 
foreboding that I recently opened an en- 
velope bearing the corporate logo of the 
Children’s Television Workshop, as it could 
mean only one thing: Grigonis was sending 
me an advance copy of his latest article 
(“Sixth Generation Computers’’) and was 
daring me to do something about it! 
Upon reading the article, however, I 
was relieved to discover that Grigonis’s 
vast intellect had finally confounded it- 
self and that I may yet emerge victorious 
from a final confrontation. Grigonis 
doesn’t make it any easier on himself 
when he writes that the favorable response 
to his last article has encouraged him to 
write yet another opus, “‘taking speculation 
about future computers to the limits that 
can be conceived of by the human mind.” 
His modest claims remind me of the tale 
of Erasmus from those strange post- 
Biblical writings known as the Apocrypha. 
The story goes that Erasmus, most learned 
man on Earth, wishes to demonstrate that, 
like Jesus, he can ascend even unto heaven, 
and so he begins to float up into the sky. 
Saint Peter, appalled at this flagrant dis- 
play, prays to God that something be 
done, whereupon Erasmus falls to Earth 
and breaks his arms and legs. Saint Peter 
then breathes a sigh of relief and sternly 
notes to the reader that “Shere was a man 
who could fly like a bird, and now he 
cannot even crawl like a worm.” 


by Michael Doherty 


Michael J. Doherty, 334 South Maple 
Avenue, Glen Rock, New Jersey 07452. 


Grigonis’s predictions this time around 
include reducing the execution time of 
artificial intelligence (AI) programs by 
building processors having signals that can 
travel faster than light, which incidentally 
allows the computer to answer questions 
even before the programs asking the ques- 
tions are run! His other prediction is that 
we will be able to communicate with such 
“superluminal” sixth generation computers 
through a technique whereby the com- 
puter reads the user’s mind! These ideas 
definitely beg closer scrutiny, so let us 
continue. 


First of all, most physicists at one 
time would have agreed with Grigonis’s 
statement that ‘“‘there is nothing in rela- 
tivity theory, quantum mechanics, electro- 
dynamics, or mechanics that says that time 
must move in one direction,” but a little 
item from quantum mechanics may one 
day prove otherwise: namely, the contro- 
versy over the conservation of charge 
conjugation, parity reflection, and time 
reversal, the so-called “‘CPT theorems’ 
initially stated by Wolfgang Pauli in 1942 
and proved by the Swiss physicist Res Jost 
in 1958. The strong possibility exists that 
certain subatomic processes can move 
only forward in time. On the other hand, 
violations of the conservation laws may 
be possible, and we therefore might have 
to throw out most of physics, but this is 
unlikely. The whole question is still up in 
the air and is certainly not as open-and- 
shut as Grigonis states. 


Physicist Bryce S. DeWitt, however, 
writing in a recent issue of Scientific 
American, discusses the idea of ‘quantum 
gravity’ and how a subatomic event that 
is quick enough, or of a high enough 
energy, could reveal the quantum “‘grainy”’ 
structure of space-time, thereby blurring 
the distinction between the past and 
future.! In more scientific terms, if gravi- 
tation (and, hence, space-time) is quantum 
in nature, then the shape of the light cone 
defining the regions of space-time that are 
accessible from a given point in space and 
moment in time would act as if it were 
“fuzzy.” Therefore, the ordinary accepted 
phenomenon of two points in space-time 
communicating with each other by means 
of signals moving equal to or less than the 
speed of light can be given only a prob- 
abilistic certainty. At tiny Planckian 
dimensions (1.61 x 10-33 centimeter), 


at Planckian time units (5.36 x 10-44 
second), and at high enough energics, the 
probability of a signal traveling faster than 


the speed of light between two points 


could be very high indeed or at least 
high enough to make one of Grigonis’s 
superluminal processors possible. 


But to test Grigonis’s theory, the 
energies required to explore this sub- 
subatomic realm would be immense. As 
DeWitt writes in his article: ““To probe 
these scales of distance and time experi- 
mentally, using instruments built with 
present technology, one would need a 
particle accelerator the size of the galaxy!”’ 
I somehow doubt that even IBM would 
want to build one of Grigonis’s proposed 
sixth generation computers if it entailed 
having to construct superluminal processor 
switches the size of the Milky Way! 

Grigonis tries to get around this with 
all sorts of ingenious arguments that hover 
at the most distant horizon of theoretical 
physics. I would like to comment on them 
but I don’t feel that I’m qualified. Indeed, 
I can think of only a handful of physicists 
in the world who are capable of seriously 
evaluating some of the things he suggests, 
which makes me wonder how he thought 
of them himself! 


As for the “mind-reading’’ aspects 
of his proposed computer, I also find these 
difficult to disprove, but only because the 
physics is once again beyond my level of 
training. In fact, I have a sneaking suspi- 
cion that Grigonis may even be right! 
Richard Feynman and Steven Weinberg, 
where are you when we need you? 


Moreover, Grigonis has reduced all of 
AI to a matter of searching through a 
search space that consists of the logical 
relationships of every known fact or asser- 
tion. Instead of resorting to forms of con- 
strained, heuristic search, Grigonis aston- 
ishes us with his suggestion to stay with 
the ‘‘brute force’? method and simply 
build computers with processors having sig- 
nals moving faster than the speed of light. 


Grigonis warns us that such super- 
luminal computers would answer our 
questions long before we ever ask them. 
He proposes to solve this problem by 
placing every query in a buffer where a 
conventional computer and AI program 
“would analyze the parameters of the 
question and estimate the appropriate 
amount of time to wait before sending 
the question to the superluminal pro- 
cessor.’’ Grigonis goes on to assure us 


that, ‘‘if the statement was accurate, the 


delay period of submitting the question 
to the superluminal processor would be 
just a little longer than the negative time 


required for an answer....’’ The answer 
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thus would appear immediately after you 
enter the question instead of sometime in 
the past. 

The problem with making a “rough 
estimate’? of the execution time of any 
program is that, because of such things 
as Godel’s Proof and Turing’s Halting 
Problem, such an estimate can only be 
rough, never precise: there is no way to 
determine whether a Turing machine (digi- 
tal computer) is ever going to stop running 
any particular program..As Godel dis- 
covered, there are “‘undecidable prop- 
ositions”’ in logic; certain problems take 
an infinite amount of time to solve be- 
cause they are unsolvable, and no logical 
way exists to determine if the computer 
is ever going to stop. All of this means 
that, if one of Grigonis’s sixth generation 
computers were studying a really diffi- 
cult, “‘interesting’’ problem, then the esti- 
mate of how long to hold the query in 
the buffer would certainly be off by at 
least an order of magnitude, and the 
answer could appear unpredictably in the 
past, present, or future! 

Grigonis ignores another plan that 
does not require a superluminal pro- 
cessor, but here too the argument breaks 
down. I am referring to the constant 
trade-off of processing time versus storage 
size. Instead of using simple assertions 
and a resolution problem solver, one could 
make the knowledge representation of a 
particular problem more powerful by 
storing large, complex trames or seman- 
tic nets on disk. 


For example, Grigonis is correct when 
he says that, given an initial chess posi- 
tion, up to 10150 move sequences are 
possible, requiring eons of processing time 
to search through. However, let’s imagine 
that we’ve already calculated every pos- 
sible move in every possible chess game 
once and have stored them all on a gigan- 
tic disk drive in the form of a series of 
records or vectors. With such an extreme 
form of knowledge representation, the 
processing time becomes almost zero as 
the problem of making the next move is 
now reduced to looking up entries in a 
table; the program simply looks up the 
current configuration of chess pieces on 
its internalized ‘“‘chart’’ and immediately 
sees the entry that tells it the best move 
to make next. Deduction as such would 
be unnecessary, since this or any other 
problem situation could in theory be 
made complete in terms of all relevant 
objects, properties, and relations. 

Of course, we have traded one impos- 
sibility for another: instead of an infinite 
amount of processing time, we now must 
provide an infinite number of disk drives! 
Besides, one rarely has a complete descrip- 
tion of any problem situation, and a repre- 
sentation formalism based on logic does 
make it possible to express generalizations 
economically in spite of this. Still, just 
because we can deduce the behavior (the 


various possible states) of.a system from 
its description as a set of subsystems or 
even simple assertions does not imply 
that the system can be explained from 
any kind of modular, logical, representa- 
tion/resolution, theorem - proving process. 
AI researchers had hoped to develop log- 
ical, problem-independent solution 
methods, but we now know from meta- 
mathematical grounds that no general, 
efficient, problem-independent solution 
technique exists,*** 


And what if the fundamental con- 
cepts themselves cannot be broken down 
into their component features with any 
utility? E. Rosch,*>> K. Nelson,° and 


D. S. Palermo,’ just to name a few, have 
complained that the feature theory of 
semantic development in human language 
is wrong, that things are more compli- 
cated than just applying good old reduc- 
tionism to the problem of meaning. 


In feature theory, features: are ab- 
stracted from a whole concept so that the 
concept’s meaning can be known. But one 
must already know that whole concept 
in order to know what features to abstract 
from it. Also, as Nelson says, like Humpty 
Dumpty there is no way of putting the 
abstracted features together to form the 
original whole. As Palermo points out, ‘“‘a 
list of features is not a concept.”’ 
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Names or words referring to cate- 
gories are acquired as a whole and not 
feature by feature. They are highly struc- 
tured internally but paradoxically do not 
have sharp, distinct boundaries; therefore, 
things are classified not by their features 
but by their “distance” from an ideal 
prototype or ‘“‘core exemplar,’ which 
sounds suspiciously like Plato’s old phil- 
osophy of ideals and his doctrines of 
form and anamnesis. Rosch shows that 
categories are universal across languages 
because they are intrinsic biological struc- 
tures given genetically to the brain from 
its evolutionary heritage. 


All of this would explain why, like the 
conceptual dependency theory of seman- 
tic primitives in AI programs, the feature 
theory of human semantic acquisition 
ignores the existence of metaphors, even 
though it is almost impossible in practice 
to differentiate between metaphors and 
nonmetaphors. We can speak nonmeta- 
phorically of “‘the long arm of the man,” 
but we can also easily comprehend “‘the 
long arm of the crane,” or “the long arm 
of the law.’’ All words have some meta- 
phoric power, the ability to overlay two 
different objects or events. As Marvin 
Minsky has written: “What something 
means to me depends on everything else I 


Re-ink any fabric ribbon for 
less than 5¢. Extremely simple 
operation. We have a MAC 
INKER for any printer. 
Lubricant ink safe for dot 
matrix printheads. Multi- 
colored inks, uninked 
cartridges available. Ask for 
brochure. Thousands of 
satisfied customers. 


$5495 + 








Order Toll Free 1-800-547-3303 


cInker 
& MacSwitch 


know ... every meaning is built on other 
meanings, with no special place to start.’® 
Similarly, it also seems impossible 
to assign items to a finite number of cate- 
gories and then state rules in terms of 
membership in those categories. John 
Ross, for instance, observed that certain 
verb structures could generally be used in 
place of a noun phrase with varying de- 
grees of acceptability.? For example, 
the gerund “‘his going”’ can be used in the 
same positions as a normal noun phrase: 


I regretted his going. 

His going surprised me. 

After his going we hired a new worker. 
His going’s main effect was to end the feud. 


Ross thought that properties like ‘“‘noun- 
iness’’ could be placed along a scale he 
called a squish. His attempts to devise a 
rigorous formalism for squishes have not 
met with success, and AI researchers in 
the natural language processing field 
tend to sweep them under the rug. 

So it seems that a computer program 
can have only a syntax — no real semantics. 
Of course these squishes, like the other 
feature/category problems, could be ex- 
plained if the human brain were viewed 
not as a discrete machine like a Turing 
machine or a digital computer but as a 
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series of parallel analog devices. 

This brings us to some fundamental 
problems that Grigonis ignores. Since a 
universal Turing machine can simulate 
any calculating device or physical expres- 
sion of any algorithm, and assuming that 
the mind arises out of the physical 
workings of the brain, it follows that the 
physical embodiment of a Turing machine 
(the digital computer) can simulate 
human cognition. 

But what if the human brain is not 
a Turing machine? What if it is some kind 
of nondiscrete analog device? This would 
explain how it can comprehend contin- 
uous spectra of physical state changes 
without analyzing each discrete state. Or 
worse yet, what if the brain is a series of 
parallel analog processors? 

John Searle exposed an even more 
fundamental misconception among AI re- 
searchers when he demonstrated that cog- 
nition is not solely a matter of formal 
symbol manipulation..° Most AI re- 
searchers think that ‘“‘the mind is to the 
brain as the program is to the hardware,” 
which implies that a Turing machine in 
the form of a program running ona digital 
computer can achieve cognition. This 
ignores the fact that, while even primitive 
AI programs can do things that people 
can do, they utilize only simple computa- 
tions that have nothing to do with the 
kind of actual cognitive states experienced 
by humans. 


After all, the strange fact about Al 
has always been that it’s easier to simulate 
an expert than to simulate the general 
common sense of a five-year-old. Daniel 
Bobrow’s STUDENT program could solve 
high school algebra word problems, and 
James Slagle’s SAINT and Joel Moses’s 
SIN programs could solve rather complex, 
abstract calculus problems. Amazingly, 
these programs relied on only about a hun- 
dred rule-based ‘‘facts’’ to achieve their 
mathematical miracles, wheras Terry 
Winograd’s SHRDLU program, designed 
to manipulate a simple world of children’s 
building blocks, was over 80,000 words 
long and required many more rules than 
most of the ‘‘expert’’ systems! 


As Searle says, “simulation is not 
duplication.” A person with a photo- 
graphic memory, after all, could memorize 
a program and “think it through,” imme- 
diately realizing that no intentional states 
are involved, just a set of instructions 
having nothing to do with “understanding.” 
As Searle writes: ‘‘No one supposes that 
computer simulations of a five-alarm fire 
will burn the neighborhood down or that 
a computer simulation of a rainstorm will 
leave us all drenched. Why on earth would 
anyone suppose that a computer simula- 
tion of understanding actually understood 
anything?’’ AI researchers are still under 
the spell of the Turing Imitation Game, 
with its strong smell of behaviorism and 
operationalism. 
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Ironically, the idea that cognition 
can be expressed in a set of logical trans- 
formations — a computer program — set 
apart from the hardware, be it computer 
or brain, implies a strange mind/body 
dualism that goes against the avowed 
materialistic stance of AI researchers. 
Suppose the biochemical reactions of the 
‘brain itself are responsible for cognition? 
As Hubert L. Dreyfus has pointed out, 
knowledge representation with formal 
symbols and transformations may be un- 
necessary in human cognition: “.. . these 
are usually nonformal representations, 
more like images, by means of which I 
explore what I am, not what I know. We 
thus appeal to concrete representations 
(images or memories) based on our own 
experience without having to make ex- 
plicit the strict rules and their spelled out 
ceteris paribus conditions required by 
abstract symbolic representations.””’ " 

So although humans are sometimes 
annoyingly imperfect thinkers, at least 
they do think, unlike AI programsand the 
computers that run them. The fundamen- 
tal workings of the universe since the Big 
Bang seem to legislate against building one 
of Grigonis’s ‘‘ultraintelligent machines.”’ 

In closing, let me thank Dr. Dobb’s 
Journal for allowing me to once again 


continue the ‘“‘Grigonis-Doherty debate”’ 
within its pages. I can think of no other 
publication in this country with a reader- 
ship capable of appreciating such esoterica. 
And, despite appearances to the contrary, 
I would also like to thank the Grand 
Master of Computerdom himself, Richard 
Grigonis, for writing the most brilliant 
and daring series of articles of the past 30 
years, or at least since the legendary days 
of Alan Turing and Johnny von Neumann. 
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SOFTWARE REVIEWS 








How many times have you said to 
yourself, “What this industry (still) needs 
is a@ good, low-cost Pascal compiler’’? 
We’ve said the same thing ourselves, and 
we were fascinated to learn about Turbo 
Pascal. Not only low in price, it was adver- 
tized to be fast, take very little space, and 
include a resident editor. In addition, 
from everything we can determine, 
Borland ships promptly and_ provides 
good support. They have even disposed of 
their $100 commercial licensing fee. 

Sound too good to be true? Well, 
the following review suggests that Turbo 
Pascal is what it claims. By the time you 
read this (lags in publishing being what 
they are) you will probably have seen ads 
in DDJ for a version 2.0 that provides 
even more features, including automatic 
overlays, windows (at least for IBM PC 
and PC Jr.), and a dispose function. We 
will provide an update on that newer ver- 
sion in the next few months. In the mean- 
time, Borland deserves watching. With 
similar packages for Modula-2 and C 
coming soon, their potentialimpact should 
not be underestimated. — Ed. 


Turbo Pascal, V.1.01 

Company: Borland International, 4807 
Scotts Valley Drive, Scotts Valley, 
CA 95066 

Computer: CP/M-80, MS-DOS, or 
CP/M-86 

Price: $49.95 

Circle Reader Service No. 119 

Reviewed by David D. Clark 


The advertisements say that ‘‘This is 
the Pascal compiler everybody’s been 
waiting for.”” They may be right. Turbo 
Pascal, from Borland International, is an 
excellent product at an extraordinary 
price. Some people may be leery of a 
low-priced Pascal compiler after having 
had a bad experience with JRT Pascal. 
I myself had similar feelings when I saw 
the advertisements for Turbo Pascal. 
Since using the product, though, I have 
been pleasantly surprised. Amazed might 
be a better word. 

_ When you open the package, you 
find a disk and a reference manual. The 
disk contains several programs and text 
files. TURBO.COM (or TURBO.CMD), 
TURBOMSG.OVER, and TURBO.OVR 
make up the compiler/editor, error mes- 
Sages, and a temporary program loader. 
Also present are an installation program 
and associated data file, a program- 


listing utility, an errata file, and the 
source files for a simple spreadsheet 
program called MicroCalc. 

Turbo Pascal has many interesting 
and innovative features. It is very small, 
only about 28K. A full-screen editor is 
co-resident with the compiler. The com- 
piler is exceptionally fast. Versions are 
available for both 8-bit and 16-bit sys- 
tems. The user can develop highly stan- 
dard, portable programs. The programs 
are reasonably fast. A _ floating-point 
format with eleven decimal digits allows 
business applications to handle dollars and 
cents calculations to $999,999,999.99. 
Access is provided to the underlying 
hardware and operating system facilities. 
In-line machine language can be gener- 
ated, and the user can control compiler 
operation with a variety of directives. 


The Editor 


The built-in, full-screen editor is 
one of the major conveniences this pack- 
age provides. It is co-resident with the 
compiler and, as such, allows a speed of 
interaction during program development 
that is unprecedented with a compiled 
language. It is possible to enter the 
editor part of the package, create the 
source text for a program, exit from the 
editor, compile the text in memory, and 
immediately return to the editor in the 
event of a compilation error, all without 
any disk access required. It’s fast. 


The first thing you will want to do 
after scanning the reference manual is 
install the editor for your computer. This 
is done by running the installation pro- 
gram TINST. There are two parts to the 
process: terminal installation and com- 
mand installation. The first and most 
important is installing the correct ter- 
minal driver for your CRT. TINST uses 
a data file containing information about 
a number of common terminals. If yours 
is one of those already known to the sys- 
tem, you will just have to select it from a 
menu and the program will -finish the 
installation. If your terminal is not one 
of those listed, or if you wish to change 
the default parameters for a listed ter- 
minal, you will be led through a series of 
questions that will set up the system to 
run with your equipment. I tried the 
installation procedure with three dif- 
ferent terminals. The system had menu 
entries for two of them, a Zenith and a 
TeleVideo, and installed them without a 
hitch. I also installed the system on a 
North Star Advantage, which is not listed 


in the menu. The installation process was 
clear and quick — you just need to know 
the control codes for your particular 
terminal. 

Turbo Pascal has several procedures 
that are extensions to standard Pascal and 
that allow control of the video screen of 
your terminal. You must complete the 
installation process correctly in order to 
guarantee that these procedures work as 
expected. 

The default commands for the editor 
are a subset of those used by WordStar. 
Cursor movement, insertion, deletion, 
find, replace, and the block commands 
are almost identical with those of Word- 
Star. Some additional commands are also 
present. The editor’s differences from 
WordStar, such as its incorporation of 
automatic indentation and a single com- 
mand to mark a word as a block, make 
the editor easier to use in a program- 
development environment than WordStar. 
If you know WordStar, you will be able 
to use the Turbo editor. 

The installation program also allows 
you to change the characters used to 
invoke each command. If you don’t like 
the default choices, it’s easy to alter 
them. Just remember to write down your 
changes somewhere. 


Running Turbo Pascal 


The heart of the system consists of 
the program TURBO. While running, 
TURBO is a simple program- development 
environment. When you _ first » start 
TURBO, it informs you of the terminal 
it has been installed for and asks if you 
wish to include error messages. If you 
respond with an affirmative, a text file 
containing the compiler error messages 
will be loaded. These contain the text 
that will be displayed in the event the 
compiler detects an error while trans- 
lating a program. If you do not load the 
error messages, you will have about 1.5K 
additional free memory, but the com- 
piler will just print out a number when 
it detects an error. After the error mes- 
Sages are loaded (or not), a menu is dis- 
played on the screen. The available op- 
tions are shown in Table 1 (page 75). 


Speed 


A rather large demonstration pro- 
gram is included as a group of source 
files on the distribution disk. It is a 
simple spreadsheet program called Micro- 
Calc. The first thing I did after backing 
up the master disk (even before installing 
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the editor) was compile this program. 
That was when I got my first surprise. 
The 1261-line program was compiled to 
a 22K object file in almost exactly one 
minute. This is just about the fastest com- 
pilation speed I have ever seen on an 
8-bit microcomputer. 


When compilations are done in mem- 
ory (selected with the Options menu), 
the process is even faster because there 
are no _ disk-write accesses to slow 
things down. It is a truly impressive 
thing to see. I ran a couple of benchmarks 
to see how fast the generated code is. The 
first was the (in)famous Byte sieve prime- 
number generator. The program compiled 
almost instantly in memory, too fast for 
me to get an accurate measurement by 
hand. It generated 301 bytes of code (not 
including the data space occupied by the 
large Boolean array). The program exe- 
cuted in 24 seconds. Although this is not 
the fastest execution speed, it isn’t too 
Shabby either. It is much faster than 
UCSD or JRT Pascal and several seconds 
faster than the C version of the program 
when compiled with Aztec C II or Eco-C 
on my system. 


Another benchmark I tried was the 
floating-point program from Dr. Dobb’s 
No. 83 and No. 89. Because Turbo Pascal 
does not include a standard function for 
calculating the arctangent, the program 
declared a function to calculate one. 
This program took 337 seconds to exe- 
cute (again compilation was almost 
instantaneous} and had an error of 
4.6E-3 from an exact answer of 2500. 
This is not too bad for software floating 
point on an 8-bit machine, especially 
when you consider that the floating- 
point format in Turbo Pascal uses a 40- 
bit mantissa (about 11 significant decimal 
digits), compared to 24 bits (about 7 
Significant decimal digits) in normal 
single- precision. 


The Reference Manual 


The reference manual is a paper- 
bound book of about 260 pages. The 
main part of the manual describes the 
features common to both the 8-bit and 
16-bit versions of Turbo Pascal. The 
first two appendices, each about 30 
pages, describe those parts of the system, 
specific to either the 8- or 16-bit version. 
The appendix describing the 16-bit ver- 
sion is further divided into sections 
covering the MS-DOS version and the 
CP/M-86 version. There are also a num- 
ber of additional appendices that list the 
standard procedures and functions, oper- 
ators, compiler directives (described be- 
low), differences from standard Pascal 
(also described below), compiler error 
messages, runtime error messages, I/O 
error messages, translation of error mes- 
sages to foreign languages, detailed in- 
stallation procedures, Turbo Pascal syn- 


tax, the ASCII character set, and a sub- 
ject index. 

Although the manual states that it 
is not intended to teach Pascal, it does 
cover the language features thoroughly 
with lots of examples. Unfortunately, 
there are some rough spots. There is a 
tendency to use e.g. with annoying 
frequency and often at an inappropriate 
place in a sentence. The same thing occa- 
sionally happes with ie. A word pro- 
cessor appears to have been allowed free 
rein with decisions on where to hyphen- 
ate words. For example, “sc-reen” and 
*“‘th-rough” are two of the more blatant 
blunders. 

These errors aren’t really too impor- 
tant. Every book of this size has some 
typographical or usage errors. Even re- 
views such as this one are not immune. 
Real confusion can occur when a pro- 
gram example is in error or does not 
agree with the surrounding text. For 
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Run 


Directory 


Quit 


Options _ 


program, ‘Because : 


opens some , other main pro 
gram, the work file will be sav 
rr ny for Sige agan cs 


a the runtime library becouse 


_ The options command. ‘also allows you 
_ occurred in a “COM” or “CHN” file. 


Table 1 


example, in the discussion of operations 
on text files, an example program de- 
clares a variable of type Text named “‘F.”’ 
In the body of the program, however, all 
text-file operations are performed on an 
undeclared variable “‘FilVar.” 


If there is a weak point in the sys- 
tem, it is the reference manual. It isn’t 
too bad, but it isn’t anything great either. 
Mostly it’s just sloppy. It needs one more 
thorough edit. 


Deviations from Standard Pascal 


The degree to which a particular 
implementation of a programming lan- 
guage adheres to the language standard 
affects the portability of programs devel- 
oped with that implementation. Turbo 
Pascal uses the Pascal User Manual and 
Report by Kathleen Jensen and Niklaus 
Wirth, not the ISO standard, as the defi- 
nition of standard Pascal. For most users, 
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the difference between the two standards 
will be small, the largest difference being 
the inclusion of conformant arrays in the 
ISO standard. I’m not aware of a micro- 
computer-based Pascal that implements 
conformant arrays yet, anyway. 

“One of the appendices of the Turbo 
reference manual discusses deviations 
from the Jensen and Wirth standard. 
These fall into (basically) six areas and 
are. mostly concessions to efficiency; that 
is, abandoning facilities that are difficult 
to implement. The deviations discussed 
do not include the many extensions avail- 
able in the Turbo version. The deviations 
are: 


1. The standard procedure Dispose is 
not available. Instead, you can man- 
age heap space (used for dynamic 
variable allocation) by use of the 





i 7 The dirsctives common to ‘both versions are: 


Controls. which physical devices are attached to the standard files Input and 
utput. When active (the default condition), the CON: device is used. When in- 
Output are attached to the TRM: device. The CON: device 
with limited editing capabilities, while the TRM: device 
cts the entire program 4 oy not be switched on 















active, Input and ( 
provides buffered i 

does not. This dire 

: and off within the Program, 
C + When active, as it is | 
execution by typing | 










standard procedures Mark and Re- 
lease. The dynamic-variable alloca- 
tion procedure New is also restricted; 
the Turbo version does not allow 
variant record specifications. 


The standard I/O (input/output) pro- 
cedures Get and Put are not imple- 
mented. Instead, the Read, ReadIn, 
Write, and WriteIn have been ex- 
tended to handle all I/O. 


The Goto statement is restricted in 
that it may transfer control only 
within the current block. 


The standard procedure Page is not 
implemented. 


Variable packing and unpacking are 
not under user control. Variables are 
packed whenever possible. Because 
of this, the reserved word packed has 
no effect and the standard proce- 


fault, this option silows the user to interrupt program 
Control- C in response to a Read or Readin statement. You 


_ can use Control-S to halt console output temporarily. 


This directive has two. functions. When followed by a file name, ae contents 
of the file named will replace the comment in the compilation. The other use 


dures Pack and Unpack are not 
implemented. 


6. A program may not pass procedures 
and functions as parameters to other 
subroutines. 


The discussion of the with state- 
ment in the main body of the reference 
manual would also lead you to believe it 
is nonstandard. According to the manual, 
the user must dereference successive 
fields within records with commas in- 
stead of with periods as in standard Pas- 
cal. The number of records that the user 
can open using a with statement is also 
restricted, but the user can change that 
number by use of the “W” compiler 
directive. The version of the compiler I 
used was capable of handling the standard 
syntax as well. In fact, on all the tests I 
ran, using the standard form generated 
slightly less code than the technique pre- 
sented in the reference manual. 

Finally, the error messages are not 
the same as in the Pascal User Manual and 
Report. This is not really a standard, but 
most compilers based on the P4 portable 
compiler, developed by Professor Wirth’s 
colleagues in Zurich, do use the same set 
of error messages. 

I transferred several programs written 
for the UCSD version of Pascal to CP/M 
for use with Turbo Pascal. In most cases, 
the revisions needed to get the programs 
running under Turbo Pascal were minor, 
usually involving things that the UCSD 





turns 1/O error handling on (the default) or off. If an 1/O error occurs while error 
checking is active, the program will be terminated. If checking is off, the user 
y eee is Ac e for error detection bye use of the standard function fOError. 


system implements in a nonstandard man- 
ner, like opening files. I did have some 
difficulty in converting programs that 
made extensive use of the Get, Put, and 
Dispose standard procedures. 









Extensions 


Turbo Pascal provides a large number 
of extensions to standard Pascal. They 
usually support a simple means of doing 
something that is clumsy or impossible 
within the constraints of the standard 
language — for example, one _ provides 
direct access to the underlying hardware. 
These extensions may be convenient, but 
programs developed with them will be 
less portable than those that use only the 
facilities available in the standard. 

The. extensions available are numer- 
ous, so I will briefly summarize some of 
them. To paraphrase from the user’s 
manual, they include: 


is oe on, | determines how rigorous s type- oneching is 
ssed_ as Pere ie active, wis par as variable 


_v This directive, whi 
_— when avs oe 





1 as subroutine. 7 
u (6t this diracive: is active, the user can interrupt the compiles program at any time 
by typing a Control - a) ve inactive, _as it is by default, Gontrol- ee bela have no 









. When active (the ee optimizations are made ae “pred at the ex- 
se of code s size. With the Bengrams | tested, this option had an effect only 


“The directives unique to the 8- bit implementation are: 


A When active (the default state), ‘the compiler will generate code for nonrecursive 


subroutines. When switched off, the code generated will allow recursive Calls 1. Dynamic strings. Strings are almost 


indispensable for many programs. 
Most implementations of Pascal on 
microcomputers provide strings of 
some sort, so they are almost a stan- 
dard. Turbo Pascal strings, and 
standard procedures and functions 
to manipulate them, closely resemble 
those available in other implementa- 
tions such as JRT Pascal and UCSD 
Pascal. 








onl on you use abe nonstandard method of opening nested 
id in the manual. This directive has no effect if you use standard 
ntax in with statements. _ 


> | : Table 2. 
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2. Variable declarations specifying an 
absolute address to be occupied by 
the variable. 

Bit and byte manipulation. 


4. Direct access to memory, data ports, 
and operating-system facilities. 


Ww 


5. Relaxed restrictions on the ordering 
of const, type, and var declarations. 


6. Ability to generate in-line machine 
code. 


7. File inclusion from the main program. 


8. Logical operations on integers, such 
as left and right shifts. 


9. Program chaining with common 
variables. | 
10. Random-access data files. 


11. Structured constants that allow a 
form of initialized variable declara- 
tion. 


12. Type-conversion functions. 


13. A large number of built-in routines 
to allow control of video terminals. 


Extensions have also been made to 
the syntax of some statements. For exam- 
ple, the case statement allows an optional 
else part and subranges in case labels. 


Compiler Directives 


The user can control the operation of 
the compiler by use of several compiler 
directives included in programs as a spe- 
cial form of comment. There is a group of 
directives common to both the 8-bit and 
16-bit versions of the system, as well as 
some present only on the 8-bit or 16-bit 
versions. These are shown in Table 2 
(page 76). 3 

There is only one directive specific to 
the 16-bit versions of Turbo Pascal. 
When the “K”’ directive is active, as it is 
initially, a check is made for adequate 
stack space before each subroutine call. 
When the directive is turned off, no such 
checks are performed. 


Chaining and External Procedures 


There are no true separate compila- 
tion facilities available with Turbo Pas- 
cal. Because compilation is so fast, how- 
ever, it is almost as easy to develop files 
of commonly used routines and include 
them in the compilation of the main 
program as it would be with a separate- 
compilation feature. Except for very large 
packages of routines, this should be 
sufficient for most needs. 


Also, there are no program-overlay 
or -segment facilities. It is possible to 
compile a program of type ““CHN” that 
can be called from another Turbo Pascal 
program with the Chain standard pro- 
cedure. A “CHN” file does not contain a 
copy of the Turbo Pascal runtime pack- 
age and is, therefore, smaller than a 
“COM” file would be. In addition, it is 
possible to share variables between the 
calling program and the program chained 


to. You can use the Execute procedure to 
start execution of a “COM” file from a 
Turbo Pascal program. Both of these 
procedures place a value of FF (hex) in 
the command-line buffer as a means of 
notifying the called program that it has 
been invoked from another program. 
Because of this, calls should not be made 
to programs that expect to make use of 
information from the command line. 
The use of external procedures is a 
little tricky in Turbo Pascal. It doesn’t 
appear to be possible at all with programs 
compiled in memory. With a minor devi- 
ation, external procedures and functions 
are declared in a manner similar to the 


SAVE YOUR 8 BIT SYSTEM 
WITH THE ONLY TRUE 16 
BIT CO-PROCESSOR THAT 


HAS A FUTURE 


CO-16 ATTACHED 
RESOURCE PROCESSOR 
from HSC, INC. 


DO NOT BUY INTO OBSOLESENCE LET HSC “STEP” 
YOUR 8 BIT SYSTEM INTO THE 16 BIT REVOLUTION 
THROUGH EVOLUTION. 


* Easily attaches to ANY Z80 based microcomputer system. 
Successful installations include: Xerox |&II, Osborn |, DEC 
VT180, Zenith, Heath, Bigboard, Ithaca, Lobo, Magic, 
Compupro, Cromemco, Teletek, Altos 8000, Lanier EZ1, 
Zorba, Morrow, Kaypro, Televideo, etc. 

- Dynamically upgrades a CPM-80 system to process under 
CP/M-86, MS-DOS (2.11), and CP/M-68K with no prog- 
ramming effort. 

(CCP/M-86 (3.1) and UNIX will be available soon). 

All 16 bit operating systems can use the un-used portion of 
CO0-16 memory as RAM DISK. 

TRUE 16 BIT PROCESSOR SELECTION - 8086 (field 
upgradable to 80186), 80186, and 68000 (all 6mhz with no 
wait states - 16 bit data path). Which spells much higher 
performance than 8088. 

* Available in a self contained attractive Desktop Enclosure 
(with a power supply), or in PC Card form for inclusion in 8 
bit system. YOU DON’T HAVE TO CRAM IT INTO YOUR 

_ BOX / IF YOU DON'T WANT TO. 

Does not disturb the present 8 bit operating environment. 

* Memory expansion from 256K to 768K RAM. 

* Optional 8087 Math Co-Processor on the 8086, and up to 
FOUR (4) National 16081s on the 68000!!! 

* MS-DOS and CP/M may co-share common data storage 
devices (such as hard disk). 


declaration of a forward subroutine; the 
procedure or function heading is speci- 
fied, followed by the external reserved 
word. Following the external reserved 
word, there must be an absolute address 
for the routine. 

Turbo Pascal assumes that all ex- 
ternal subroutines will be written in 
assembly language. The reference manual 
clearly explains the parameter- passing 
and function-return protocols needed to 
make such assembly-language routines 


work with Turbo Pascal. 


When the program is compiled, the 
starting address must be set explicitly 
from the Options menu to make room 


* MS-DOS Compatible 

* IBM PC “Hardware” Compatible 
* CP/M-86 Compatible 

* CCP/M-86 Compatible 

* CP/M-68K Compatible 
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* Direct MS-DOS and PC-DOS formatted 5%’ Diskette 
read/write Capability available on: Osborn |, Morrow, 
Kaypro, Televideo 803, and Epson QX-10 systems, More 
coming. 

- All 768K can be used as high speed CP/M -80 RAM DISK. 

- Optional Real Time Clock, DMA, I/O Bus, and 2 Serial 
Ports... : 

* /O MODULE CONTAINING AN IBM COMPATIBLE BUS 
(4 slot) & an IBM COMPATIBLE KEYBOARD INTER- 
FACE is an available option. THIS IS THE REAL DIFFER- 


ENCE BETWEEN MS-DOS and IBM PC “HARDWARE” 
COMPATIBILITY. 


AFFORDABLE PRICES 


C01686 - includes 8086, 256K RAM, Memory Expansion 
Bus, Z80 Interface, MS-DOS (2.11), MS-DOS RAM Disk, 
CPM-80 RAM Disk. $650.00 

C01686X - includes all of CO1686 PLUS Real Time Clock, 
\/O Bus Interface, Two (2) Serial Ports, DMA, and the provi- 
sion for 8087. $795.00 

C01668 - includes 68000, 256K RAM, Memory Expansion 
Bus, Z80 Interface, CP/M-68K, C Compiler, CPM-68K RAM 
Disk, CPM-80 RAM Disk $799.00 

C01668X - includes all of CO1668 PLUS Real Time Clock, 
\/O Bus Interface, DMA, Two (2) Serial Ports, and the provi- 
sion for up to four (4) 16081 Math Co-Processors. $995.00 


OPTIONS 
Nesktop Enclosure w/ power supply $125.00 
$467.00 


$659.00 


Memory Expansion - 256K 
Memory Expansion - 512K 


/O Module - IBM Compatible 4 slot 
(multiple 1/O Modules allowed) 


Math Co-Processor 8087 
Math Co-Processor 16081 
CPM-86 


$499.00 
Call 
Call 
$150.00 


For more information: 

see your favorite Dealer or contact: 
HSC. INC. 

262 East Main Street 

Frankfort, NY 13340 
1-315-895-7426 

Reseller, and OEM inquires invited. 
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for the external subroutine between the 
runtime library and the rest of the 
program. I could find no way to get such 
a subroutine into memory at the address 
specified while the Turbo package was 
running. Apparently the only way to do 
so is to compile the program to a ““COM” 
or “CHN” file, then — using the system 
debugger — overlay the external routine 
at the appropriate address in the code 
file and save the altered program. I at- 
tempted this with a simple external 
lowercase-to-uppercase conversion func- 
tion and it worked. The process is prob- 
ably a little complicated for a novice 
programmer. 


Conclusions 


The system is easy to install. This 
phase of getting a new program to work 
often frustrates users, but Turbo Pascal 
handles the process automatically if you 
have one of the approximately 30 ter- 
minals that it knows about. If you don’t, 
a detailed installation procedure is de- 
scribed in an appendix of the users’ 
manual, allowing installation on any 
modern CRT terminal. I tried both 
methods and had no problems. 

As initially installed, the command 
set for the editor is very similar to a sub- 





TOTAL CONTROL: 


FORTH: FOR Z-80®, 8086, 68000, and IBM® PC 
Complies with the New 83-Standard 
GRAPHICS e GAMES e COMMUNICATIONS e ROBOTICS 
DATA ACQUISITION e PROCESS CONTROL 


set of WordStar. If you wish, you can 
change these commands. 

Once installation is complete, using 
the system is a real pleasure. The integra- 
tion of the compiler with the full-screen 
editor makes program development a 
snap. The compiler is incredibly quick, 
especially when translating a program for 
immediate execution in memory. The 
degree of interaction is very nearly that 
of working with a BASIC interpreter. 
If a compilation error occurs, the system 
will take you to the point in the program 
text where the error was detected. If an 
error occurs later, while running a pro- 
gram that was compiled in memory, the 
system will again take you to the source 
statement that caused the error. If an 
error is detected while running a “COM” 
or “CMD” file compiled by Turbo, it is 
also possible to find the source statement 
causing the problem. 

Another important feature of Turbo 
Pascal is its size. It is small, both in terms 
of disk space and memory space. AI- 
though I did not try this, it appears that 
it would be possible to develop and run 
useful programs on computers with 
RAM memory as small as 32K. 

The compiler accepts almost ll 
standard Pascal statements. It is therefore 
possible to write highly portable pro- 


























@ FORTH programs are _ instantly 
portable across the four most popular 
microprocessors. 

@ FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

@ FORTH programs are highly struc- 
tured, modular, easy to maintain. 

@ FORTH affords direct control over 
all interrupts, memory locations, and 
i/o ports. 

@ FORTH allows full access to DOS 
files and functions. 

@ FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

@ FORTH Cross Compilers are 
available for ROM’ed or disk based ap- 


plications on most microprocessors. 


Trademarks: IBM, International Business Machines 
Corp.; CP/M, Digital Research Inc.; PC/Forth+ and 
PC/GEN, Laboratory Microsystems, Inc. 





FORTH Application Development Systems 
inciude interpreter /compiler with virtual memory 
management and multi-tasking, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual. Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions. 


Z-80 FORTH for CP/M® 2.2 or MP/M Il, $100.00: 
8080 FORTH for CP/M 2.2 or MP/M II, $100.00: 
8086 FORTH for CP/M-86 or MS-DOS, $100.00: 
PC/FORTH for PC-DOS, CP/M-86, or CCPM, 
$100.00; 68000 FORTH for CP/M-68K, $250.00. 


FORTH + Systems are 32 bit implementations 
that allow creation of programs as large as 1 
megabyte. The entire memory address space of 
the 68000 or 8086/88 is supported directly. 


ORE sa 4b 5 Jb ake Maen ea ae a $250.00 
8086 FORTH + for CP/M-86 or MS-DOS $250.00 
68000 FORTH + for CP/M-68K $400.00 


Extension Packages available include: soft- 
ware floating point, cross compilers, INTEL 
8087 support, AMD 9511 support, advanced col- 
or graphics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 
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a / | Post Office Box 10430, Marina del Rey, CA90295 Coumeor) 
Phone credit card orders to (213) 306-7412 
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grams. I had little trouble transferring 
programs between Turbo Pascal and 
UCSD Pascal. In many cases, no changes 
were required to compile and run the 
programs on either system. When changes 
were necessary, they were usually simple 
and straightforward. In most instances, 
the quality of the code produced was 
good, comparing favorably in size and 
speed with other Pascal and C compilers 
that I use on my system. 


Turbo Pascal also has a large number 
of available extensions. Some allow easy 
access to low-level hardware and soft- 
ware functions of the host computer. 
Others include groups of built-in routines 
that are useful in many programs. Pro- 
grammers often create libraries containing 
routines similar to these anyway, such as 
ones allowing control of the video ter- 
minal screen, but the Turbo system has 
already implemented many such facilities. 
Programs that use these extensions will 
probably not be directly portable to 
non-Turbo environments, but they are 
convenient. 

The system is not without a few 
shortcomings, however. The absence of 
Get, Put, and Dispose may prove clumsy 
for some programs. Turbo Pascal is not 
acceptable for those applications that 
absolutely require separate compilation 
and overlay facilities. The alterations 
needed to include such capabilities in 
Turbo Pascal would probably negate 
many of its more desirable qualities. 
Also, the MicroCalc program, included 
aS a programming example, requires a 
little polishing, mostly updating com- 
ments to take into account changes 
made in the program sections they refer 
to. Finally, the reference manual really 
needs some more work to bring it up to 
the quality of the rest of the system. 

In short, Turbo Pascal would be an 
excellent purchase for two groups of 
computer users: those who already know 
Pascal and those who don’t. Programmers 
who already use Pascal will find it an 
exceptional program-development sys- 
tem for the vast majority of applications. 
Persons who want to learn Pascal should 
acquire a good textbook as well as the 
Turbo package. The highly interactive 
nature of Turbo Pascal will make it 
nearly painless to “learn by doing’ by 
experimenting with examples in the 
textbook. 
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MicroMotion 


MasterFORTH 
It's here — the next generation | — 
of MicroMotion Forth. 


Meets all provisions, extensions and experimental 
proposals of the FORTH-83 International Standard. 


Uses the host operating system file structure (APPLE 
DOS 3.3 & CP/M 2.x). 


e Built-in micro-assembler with numeric local labels. 
e A fullscreen editor is provided which includes 16 x 


64 format, can push & pop more than one line, 
user definable controls, upper/lower case key- 
board entry, ACOPY utility moves screens within & 
between lines, line stack, redefinable control 
keys, and search & replace commands. 


Includes all file primitives described in Kernigan 
and Plauger’s Software Tools. 


) The input and output streams are fully redirectable. 
e Theeditor, assembler and screen copy utilities are 


provided as relocatable object modules. They 
are brought into the dictionary on demand and 
may be released with a single command. 


Many key nucleus commands are vectored. Error 
handling, number parsing, keyboard translation 
and so on can be redefined as needed by user 
programs. They are automatically returned to 
their previous definitions when the program is 
forgotten. 


The string-handling package is the finest and 
most complete available. 


A listing of the nucleus is provided as part of the 
documentation. 


The language implementation exactly matches 
the one described in FORTH TOOLS, by Anderson 


& Tracy. This 200 page tutorial and reference 


manual is included with MasterFORTH. 


e Floating Point & HIRES options available. 
e@ Available for APPLE II/ll+/lle & CP/M 2.x users. 
e@ MasterFORTH - $100.00. FP & HIRES -$40.00 each 


Publications 
e@ FORTH TOOLS — $20.00 


e 83 International Standard — $15.00 


@ FORTH-83 Source Listing 6502, 8080, 8086 — 
$20.00 each. 
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12077 Wilshire Blvd., Ste. 506 

Los Angeles, CA 90025 
(213) 821-4340 





A Professional Quality Z80/8080 Disassembler 


REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k long! 
Lets you insert COMMENTS in the disassembly! 


A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and |/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M* 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


REVASCO 


| 6032 Chariton Ave., Los Angeles, CA. 90056 | 


(213) 649-3575 


*CP/M is a Trademark of Digital Resaerch, Inc. 
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BOOK REVIEWS 








High-Tech Consulting 
By John Zarella 
Published by Microcomputer Applica- 

tions, November 1983 
$18.95 paper, 167 pages 
Reviewed by Robert Clark 

Consulting is one of the most attrac- 
tive and potentially lucrative ways fora 
hardware or software professional to 
establish an independent enterprise in the 
field of computer systems. A consulting 
business can be started on a shoestring, 
and can be initiated and run effectively 
by a single person. The business may begin 
returning profits almost at once, as high- 
tech companies will pay handsomely for 
the expertise needed to design new pro- 
ducts using the latest technologies. 

For those eager to capitalize on the 
opportunities presented by becoming a 
consultant, Zarella has some sound if 
sobering, advice on the business aspects 
of consulting. There are at least as many 
pitfalls as there are gold mines in this 
field, and anyone seriously considering 
starting out on his or her own will ap- 
preciate the pointers offered in High-Tech 
Consulting. Zarella spends little time re- 
counting the attractive aspects of consul- 
ting; if you finish this book with as much 
enthusiasm for becoming a consultant as 
you had when you started it, your business 
will probably be extremely sucessful. 

Part one of the book starts by as- 
suming professional technical competence 
and describing other qualifications neces- 
sary for consulting. These include the 
abilities to listen to clients and analyze 
their needs, to estimate the time and 
materials necessary to complete a project, 
and to produce proposals and provide 
progress reports and other documentation 
on the work being done. Verbal communi- 
cation skills are also needed to convince 
potential clients that you are the person 
for the job, and to ensure that they under- 
stand your approach to the problem. The 
latter includes conducting design reviews 
and explaining your work to technical 
and non-technical clients. 

Zarella goes on to examine several 
notions about the consulting lifestyle. 
He admits that there are some advantages 
to being your own boss, selecting the jobs 
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on which you will work, setting your rates, 
and managing your business and personal 
finances. He is quick to point out, how- 
ever, that your source of income is 
always at risk, that your periods of free 
time will be unpredictable, and that your 
credit rating will probably disappear. 


The second part of the book deals 
with setting up a consulting business. Such 
a business may be anything from an after- 
hours income supplement to a corporation 
with sizeable office space and many em- 
ployees. The book is geared toward the 
one-person enterprise, and briefly covers 
such things as estimating startup costs, 
writing a business plan, obtaining a business 
license, paying taxes, recordkeeping, 
finding part-time or full-time employees, 
and dealing with Government red tape. 
(Think twice before taking a Government 
contract; filling out forms in triplicate 
can wipe out profit margins.) 


In part three, the day-to-day aspects 
of running a consulting business are dis- 
cussed. As a consultant, you will find that 
substantial energy will go into marketing 
your abilities, meeting with prospective 
clients, writing proposals, and other non- 
billable activities. Setting your rates and 
bidding on fixed-price jobs must be done 
with this in mind. These topics are covered 
along with suggestions on keeping techni- 
cal records. 


Zarella finishes up in part four with 
the topic of protecting yourself, your 
family, and your business with contracts, 
collection schedules, legal advice, patents 
and copyrights, and insurance, an Appen- 
dix of references and selected reading 
provides additional ‘‘how to”’ sources for 
the topics covered in this book. 


If you follow all of the suggestions in 
High-Tech Consulting for establishing and 
maintaining your enterprise, you will have 
a model small business. You will also find 
yourself swamped in the details of running 
it. This book is valuable in that it offers 
advice on virtually every business aspect of 
consulting, but a one-person business can 
selectively disregard some of these. For 
instance, everyone should know what they 
are committing to when they sign a con- 
tract or non-disclosure agreement, but not 
everyone needs a business plan. Too much 
paperwork can make one lose sight of 
the fact that high-tech consulting is the 
business of hardware and software devel- 
opment, and a_ successful consultant 
should be able to enjoy doing just that if 
sound business practices are followed. 


How to Create Your 


Own Computer Bulletin Board 
By Lary L. Myers 

Published by Tab Books Inc. 
$12.50 (paper), 214 pages 
Reviewed by James Moran* 


Although no new ground is covered 
in How to Create Your Own Computer 
Bulletin Board, Lary Myers has done an 
admirable job of compiling program code 
for this book. 

Designer of the FORUM80 and 
TABLOID BBS (Bulletin Board System) 
in Albany, New York, Myers has written 
a book that will be particularly useful to 
computer clubs that are interested in set- 
ting up their own boards. The first few 
chapters of the book serve a dual purpose 
in that they provide a technical introduc- 
tion to the programs that follow as well 
as suggest some preferred BBS designs. 

Although a little light on the narrative 
side, the book covers the basics of bulletin 
board design and does a good job of 
pointing out the danger areas in running 
these boards. In particular, serious BBS 
designers will appreciate the section on 
board security and integrity. 

The majority of the book is taken up 
by BASIC and assembler programs that 
fully document a functional board for 
Apple and TRS-80 users. With the notable 
exception of the LTERM intelligent ter- 
minal program for TRS users, all of the 
assembler listings are nicely commented 
and should prove simple to modify. 

The only serious problem with this 
book is the print quality of some of the 
listings. Whether this was due to the dot 
matrix printer that the author used to re- 
produce the listings or to a quality control 
problem at the printers is difficult to 
determine. In any case, for those who are 
interested, the publisher offers to supply 
the BBS programs on disk for $30. In 
view of the fact that the book is in large 
part a 160-page compendium of program 
listings, those BBS enthusiasts who are 
considering the implementation of their 
own board might want to bypass the book 
and just order the program diskette. 


BBL 


SSS sss 


80 


Dr. Dobb’s Journal, June 1984 


Announcing Dr. Dobb’s 


Fifth-Generation 
Programming Competition 


The Challenge: To write a program that applies artificial intelligence techniques to a practical 
problem, and to extend the present boundaries of what a microcomputer can do. 


No rigorous definition of the field of artificial intelligence exists, but there are some programming 
problem domains that are commonly referred to as AI. These include, among others, pattern recogni- 
tion, learning, logical reasoning, the representation of knowledge, planning and problem solving. Pro- 
grams that make a stab at dealing with natural language or with speech or with visual input are regarded 
as AI programs, as are automatic- programming tools and chess programs. 


Al’s earliest successes were in game playing, but recent work in the area of expert systems has 
shown that artificial intelligence techniques can be of real use in practical real-world problem areas 
like medical diagnosis, geological research and chemical identification. Perhaps because of the success 
of expert systems, which typically require the processing of large amounts of information, the belief 
is widespread that microcomputers are inadequate for AI work. We disagree. We believe that there are 
AI problems waiting to be solved via microcomputer, and we conceive this competition to challenge 
the brightest microcomputer programmers we know of — Dr. Dobb’s readers — to find and solve some 


of those problems. A fantasy? Perhaps. But Dr. Dobb’s Journal has been publishing Realizable Fan- 
tasies since 1976. 


The Rules: The following items must be included in each entry: a functioning program on disk, 
a well-documented listing of the program, a prose description of the program explaining what it does 
and how it does it, and the entrant’s name and address. The program must be written in a high-level 
language for a microcomputer, and the entry must be postmarked no later than September 30, 1984 
and received by October 30, 1984 (overseas entrants take note). 


Although your choice of specific language, hardware, problem domain and approach to the prob- 
lem are all open, we offer some guidelines as to how we will be judging the entries. Your program will 
be judged for originality and significance of contribution first, and second on its intrinsic merits as 
a program: modularity of design, efficiency, portability, clarity, and so on. A program that executes in 
64K of memory will get higher marks than an equivalent program that requires 96K, but a 128K pro- 
gram that does significantly more may rate higher than either. If your choice of hardware or disk for- 
mat is an unusual one, you might query us before submitting your entry. 


The Payoff: The winner will receive a $1000 prize and will have the program and prose description 
published in Dr. Dobb’s. In the tradition of Dr. Dobb's, this contribution to the advance of micro- 
computer software is to be placed in the public domain with full credit to the author. Support for the 
concept of public domain software is part of Dr. Dobb’s heritage, but it may not be part of yours. This 


competition is for those who genuinely want to make a contribution to the advance of microcomputer 
software. Send your entry to: 


Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303. 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 


Professional Basic 


Neil Bennett’s outstanding BASIC im- 
plementation for the IBM PC, called 
“Professional Basic,’ is now available 
through Morgan Computing Company, 
Inc. (10400 North Central Expressway, 
Suite 210, Dallas, TX 75231). This version 
of the language sets new standards with 
its fantastic window-oriented debugging 
tools, dynamic syntax checking, use of 
the Intel 8087 numeric co-processor for 
fast floating-point operations, and support 
for the 8086/88 CPU’s full 1-megabyte 
address space for both programs and data. 
The user interface has a distinctive, elegant 
style that is unbeatable for program devel- 
opment. For more details, read the review 
in the April 1984 issue of Byte magazine. 
If you own an IBM PC, and must program 
in BASIC for whatever reason, you owe it 
to yourself to pick up the phone and order 
a copy of Professional Basic. Users of 
other machines take heart; versions are 
being contemplated for most of the popu- 
lar 16-bit microcomputers including 
68000-based machines. 


The Filepath Utility 


‘‘Filepath,” a small but indispensable 
utility from SDA Associates (P.O. Box 
36152, San Jose, CA 95158), has changed 
my life for the better. Written by Bernie 
Belew and selling for the miniscule fee 
of $12.95 plus tax, Filepath does for data 
files what the MS-DOS ‘“‘Path’”? command 
does for executable program files. This 
is extremely helpful when using programs 
that refer to the disk for overlays, mes- 
sages, and the like. For example, you can 
now put one copy of WordStar and its 
overlay files into a single subdirectory on 
your hard disk, point to that subdirectory 
with ‘‘Path=”’ and ‘‘Filepath=’’ specifica- 
tions in your AUTOEXEC.BAT file, and 
use the word processor successfully from 
anywhere in the directory structure. 


Beating the Laws 
of Thermodynamics 


Those of you with a taste for com- 
puting esoterica might like to read the 
article ‘‘Computing without Dissipating 
Energy,” in Science (March 16, 1984, page 
1164). When I was a chemistry major, the 
Three Laws of Thermodynamics were 
taught to us as: (1) You can’t get some- 
thing for nothing, (2) You can’t break 
even until you get to absolute zero, and 
(3) You can’t get to absolute zero. There 
is now a heated (if you’ll excuse the ex- 


pression) debate going on between one 
group of physicists who believe computa- 
tion inherently requires the expenditure 
of energy and some scientists who think 
the energy dissipation per logical operation 
could be brought arbitrarily close to zero 
with radically different technology. If 
you’re interested, brush up on your Turing 
machine theory and lose yourself within 
the pages of Science. 


Floating-Point Benchmarks 


Results continue to flow in on the 
Bill Savage floating-point benchmark 
recently published in this column. In spite 
of its deficiencies, this benchmark seems 
to have sparked an incredible amount of 
reader interest. Versions for two of the 


“missing” languages, LISP and Logo, have 


been contributed and may be found in 
Listings One and Two (page 83). I plan 
to publish a corrected and expanded 
list of timings and errors within the next 
three months. 

Mark Seage of Lawrence Livermore 
Labs came through with results for the 
Cray I and Cray X-MP processors and cer- 
tainly made me eat my words about the 
performance of 8086/8087-based micro- 
computers compared to mainframes. The 
timing for the latter, incidentally, was an 
incredible 0.00012 seconds with an ab- 
solute error of 1.7E-10. He notes that this 
particular benchmark cannot be vector- 
ized, but that in a benchmark that was 
vectorizable an additional speedup of 10 
to 100 times could be expected. Now that 
I am confronted with an example of the 
number-crunching performance of a real 
mainframe that I can relate to, I must 
admit to being a bit awed. 


At the other end of the computer 
spectrum, Jim Benenson wrote to defend 
the reputation of the Sinclair ZX-81. 
This machine’s BASIC was previously 
reported to complete the Savage bench- 
mark in about 1 day. Jim observed an 
execution time of 935 seconds in ‘“‘fast 
mode’”’ and an absolute error of 3.0E-1. 

An error occurred in my transcrip- 
tion of the result for WS Systems Forth 
running on the 8086 with 8087 support. 
The actual error was 2E-13, not 1E-3 
as printed in the column. 

In the course of their comments on 
the original benchmark program, several 
readers have recommended Software 
Manual for the Elementary Functions, 
by William Cody Jr. and William Waite 
(Prentice Hall Inc., 1980). The book sells 


for about $20, and is “‘designed to help a 
programmer without a degree in numerical 
analysis implement the elementary mathe- 
matical functions,” says Delbert Franz. It 
gives approximations fora variety of preci- 
sions and includes detailed flow charts and 
notes for a variety of floating-point bases 
...aS well as for fixed-point machines.”’ 


More on the 
Microsoft 8086 Assembler 


My earlier column on some “anom- 
alies’’ in the Microsoft Macro Assembler 
provoked a few indignant letters and some 
reports of further bugs. Several people came 
to the defense of the Assembler, saying 
that some of the problems that I con- 
sidered bugs were simply artifacts of its 
internal storage format for variables. One 
person even stated that the Microsoft 
Assembler’s display of word values in the 
opposite byte order from the actual phy- 
sical storage in memory was “not a bug, 
but a feature!”’ 

Sorry folks, I just can’t agree. When 
you are using an assembler, you are 
working at the machine level and can ex- 
pect to be staring at plenty of object 
code dumps while debugging. If the listing 
doesn’t correspond exactly to what’s 
in memory, it’s only adding to your 
mental workload and creating unnecessary 
opportunities for additional errors. The 
same argument applies to the representa- 
tion of the actual binary value of equates. 
If Microsoft wants to promulgate a phil- 
osophy of writing assemblers that is dif- 
ferent from everyone else in the world, it 
could at least warn us in the manual. 


Dan Rollins, author of an excellent 
assembly language column in PC Age 
magazine, writes, ““There is another very 
nasty bug [in the Microsoft Assembler] 
that can cost hours of debugging. That is, 
when the symbol in 


ADD reg/mem16,offset symbol 


has a segment offset of less than 128, the 
assembler generates the sign-extended 
version of the addressing mode byte. This 
is very considerate — it saves an entire 
byte in the executable module. However, 
the reference that’s generated is not re- 
locatable. Therefore if the position of the 
specified data changes during the link 
process, you end up with a logic error 
that’s not your fault. The same problem 
exists for SUB, AND, CMP, OR, etc., 
when the address operand just happens to 
be early in the module. 

*“‘Here’s a handy hint for your readers. 
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Sometimes when you link a bunch of 
modules, you want to be sure that their 
segments will be loaded into memory in 
a specific order. For instance, you may 
want your DATA_SEG to come after 
your CODE_SEG. Alas, the physical 
placement of the segment in the source 
code has no effect on the placement 
in memory. The undocumented way to 
do this is to name your segments so that 
they are alphabetically in the order that 
you want them in memory. But, this only 
applies to segments in a single module. 
“The Linker documentation clearly 
states that the overriding priority of seg- 
ment placement is the order in which the 
object modules are named in the LINK 
command line. You can let that foul you 
up, Or you can use it to your advantage. 
“‘First, create several OBJ modules 
that each define an empty segment. For 
instance, one module would look like this: 


; ** dummy module DATA_MOD.OBJ 
data_seg segment public 
data_seg ends 

end 


“DATA_SEG would be the same 
name as a segment in the module you 


want to reorganize. Then have the linker 
load these ‘dummy modules’ before 
loading the real code: 


LINK code_mod +stack_mod 
+data_mod +myprog; 


*‘Rearranging the order of the dum- 
my modules also rearranges the place- 
ment of the modules in memory. Verify 
it by reading the link map. 

This technique is most useful when 
using the GROUP pseudo-op for creating 
COM format files. Often you’ll want to 
define your data at the top of a program 
in order to avoid the phase errors and 
‘Operand must have size’ errors that can 
happen when you have forward references 
in your code.”’ 

Page 5-40 of the Microsoft Assembler 
manual alludes to another way of control- 
ling the placement of a segment. The 
“MEMORY” combine-type entry on a 
segment declaration is supposed to force 
that segment to be loaded at a higher 
address than all other segments being 
linked together. However, it doesn’t 
work as advertised — just another ‘“‘fea- 
ture,”’ I guess. 

One particularly amusing report came 


from a user who found that mistyping 
“‘para’’ as “‘par” in a segment declaration 
can cause the Microsoft Assembler to 
crash without any warning or error mes- 
sage. The mechanism by which this could 
be occurring is hard to imagine. After all, 
the source file is, from the assembler’s 
point of view, simply a data structure to 
be transformed, right? It’s a good thing 
our word processors don’t crash every time 
we misspell a word! 


Toolbox Installment 

Listing Three (page 84) contains 
a set of three interdependent subroutines 
to convert a word or byte into the equi- 
valent hexadecimal ASCII representation. 
The routines are written in a form suitable 
for the Microsoft 8086 Assembler, though 
the code should also be acceptable with 
little or no change to Digital Research or 
Intel assemblers. 


BBJ 
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16-Bit 
Listing One 


Logo version of the Savage benchmark, adapted from program contributed 


by Tom Prince. 


to savage 
make "a l 


,;savage benchmark in LOGO 


repeat 2598 [make "a (tan atan exp ln sqrt :a*:a 1) +1] 
;note that LOGO atan is like FORTRAN atan2 


forint [a = -{' va) 

end 

£0.ccan 2x 

output. tein 2:x}/ (cos: +x) 
end 


Listing Two 


LISP version of the Savage benchmark, contributed by Morton Goldberg. 


(DEF 'BMRK 
" [LAMBDA (N) 


(OR N (SETQ N 25@8@)) 


[PROG (A) 


[SETQ A 1.@D) 


End Listing One 


An IQ LIST version of Savage's Benchmark Program 


(Continued on next page) 
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1 6-Bit (Listing Continued, text begins on page 82) 
Listing Two 


LOOP 
(SETQ A (+ 1.@0D 
(TAN  (ATAN: “(EXP (LN “(SORT -(* AA) PD). T)8) TY 29 
(SETQ N (SUB1 N)) 
(COND [(LE N @) (RETURN (SUBI1 A)]) 


(GO LOOP) ]]) End Listing Two 


Listing Three 


'f 
; Intel 8886 subroutines to convert a binary 
; word or byte to hexadecimal ASCII format. 
; Ray Duncan, March 1984. 

a 

word to hex proc near ;convert 16-bit binary word 

sto hex ASCTI 

;Ccall with AX=binary value 

; DI=addr to store string 
; (4 characters) 
*returns AX, DI, CX destroyed 


push ax 

mov al,ah 

call byte to hex ,;convert upper byte 
pop ax 

call byte to. hex convert Lower: byte 
ret 


word to hex endp 


byte to hex proc near ;convert binary byte to hex ASCII 
| ;Call with AL=binary value 

; DI=addr to store string 
. (2 characters) 
,;returns AX, DI, CX destroyed 

sub ah,ah ;Clear upper byte 

mov cl i6 

div ag ;divide binary data by 16 

call ascii ;the quotient becomes the first 

stosb *ASCII character, store it. 

mov al,ah 

call ascil >the remainder becomes the 

stosb *second ASCII character, store it. 

ret | 


byte _to_hex endp 


ascii 


proc near ;convert bottom 4 bits in AL 
add ad ee sinto the hex ASCII character 
cmp aio" 
jle ascii2 ;jump if in range @-9, 
ie add al,'A'-'9'-1 ,;offset it to range A-F, 
ascii2: ret PEecCurn ASCIilT char. ..in Ab. 
ascil endp 


End Listings 
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GGM — FORTH™ has HELP* 


for Z80' using CP/M? C Programmers: 


GGM—FORTH mplete software system for Program three times faster 
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C/UNIX PROGRAMMER'S NOTEBOOK 


by Anthony Skjellum 


In previous columns, I have alluded 
to 8086-family C compilers that support 
large-memory models. Before discussing 
some of the compilers that provide such 
features, I thought it worthwhile to dis- 
cuss the memory model concepts of the 
8086 and how these concepts impact C 
compilers implemented for this micro- 
processor family. I will discuss the advan- 
tages and drawbacks of several memory 
models used by existing C compilers, 
and present code to help overcome some 
of the limitations of small-memory 
model compilers. 

For those readers who are not inter- 
ested in the details of 8086 C compilers, 
large-memory models, or long pointers, 
there is still some interesting material in 
this column. Specifically, several routines 
that are included here illustrate real-life 
code that will interface C and assembly 
language. Most compiler manuals are terse 
on this subject, so some actual code may 
help drive home the concepts involved. 


Background 


Before plunging into a discussion of 
memory models, a brief introduction to 
the 8086 architecture is necessary. This 
material will help to illustrate why different 
compilers use different addressing schemes. 

The 8086/88 microprocessors support 
20-bit addressing. This fact allows the 
microprocessor to address in excess of 1 
million bytes. All the registers are 16 bits 
wide, however. This implies that some 
segmentation scheme must be used in 
order to address more than 64K of memory. 
The technique used involves four 16-bit 
segment registers: CS, DS, ES, and SS. 
These registers are the code-segment, data- 
segment, extra-segment, and stack-seg- 
ment registers, respectively. Depending 
on the instruction used, different segment 
registers come into play in determining the 
complete 20-bit address. In forming a 
complete address, the segment address is 
always shifted left four bits. Note that a 
segment register by itself addresses 
memory on 16-byte boundaries. Sixteen- 
byte regions addressable by segment 
registers are known as paragraphs. Al- 
though paragraphs and paragraph align- 
ment are not normally of interest to C 
programmers, they are sometimes impor- 
tant when developing assembly -language 
interface code for C. 

When discussing long pointers, a spe- 
cial notation is used. Because the address 
is split, it is written in the form: 


segment:byte_pointer 
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where segment is the segment, and 
byte_pointer is the 16-bit, low-order 
part of the address. A typical example of 
such an address would be ‘“‘es:bx,”’ which 
means ‘“‘segment specified by es register 
and offset from this segment specified by 
the bx register.’’ This notation is used 
throughout the listings included with this 
column. 

Machine instructions often differ- 
entiate between inter- and intrasegment 
operations. For example, there are “‘near’’ 
and ‘far’? CALL instructions. 

I will now outline several memory 
models. 


8080 Memory Model 


The 8080 memory model is just what 
its name implies. All segment registers 
are set equal, so that only a total of 64K 
is available for a program. This model is 
seen mostly under CP/M-86 but is occa- 
sionally used by MS-DOS programs. None 
of the C compilers that I have seen restrict 
programs to this model. 


Small-Memory Model 


Many programs can work comfortably 
with only 64K of data space and 64K of 
program space. Such a model results when 
the CS and DS registers are set to different 
blocks of memory (up to 64K each). 
Normally, ES and SS are set equal to DS, 
so that all data and stack memory resides 
in the same block of memory. This model 
is fine as long as programs and data require- 
ments are small enough to fit within the 
64K limits. Most C compilers support 
only this model. 


iptr 


 iiong: 


e Tstrl at: 


| “word; 


Large-Memory Model 


In a large-memory model, all addresses 
refer to the full 20-bit range. All sub- 
routine calls are “‘far’’ calls, and all data 
is referred to with long pointers. Long 
pointers include a segment- and byte- 
address pointer (thus occupying 32 bits). 
Only afew C compilers support this model. 
The reason that most compilers don’t 
support this model is its complex code gen- 
eration. I will mention more on this later. 


Hybrid 

A useful hybrid of the small- and the 
large-memory models is the one where 
only 64K of program space is provided 
but long pointers for data are used. This 
model offers speed advantages for pro- 
grams that require more data storage but 
are moderately small. 

One other possibility would be a 
large-code/small-data model, which would 
be used for programs with small data 
requirements but large code requirements. 

One type of model that has not been 
considered is one that supports a large 
stack. A large stack would support more 
than 64K of items. Implementing this 
feature would slow program execution 
significantly, because stack references 
would be complicated. 


Which Model Is Better? 


As long as aC program can fit within 
the small-memory model, there is a dis- 
tinct speed advantage in using this model. 
The large-memory model produces longer 
(and somewhat slower) programs because 
of the greater generality of each instruc- 


is sank pera 
/* character format */ 
/* long-word format */ 


Figure 11. 


“unsigned addr; 
unsigned seégm; 


} LWORD;: 


typedef struct —lword 
; a 


/* address */ 
/*® segment */ 


Figure 2. 
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tion produced (ability to refer to 1024K 
instead of 64K of memory requires longer 
pointers and more checks). Because the 
8086 doesn’t provide many instructions 
to manipulate the long pointers, many 
additional instructions must be generated 
for pointer-related operations (which also 
include all memory references). 

Specific examples of the lack of 8086 
instructions involve incrementing and 
decrementing long pointers. Note that a 
long pointer is not just a 32-bit word. The 
upper 16 bits is a segment address that 
must be treated accordingly when crossing 
64K boundaries. Examples of imple- 
menting these features in software are 
included in Listing Five (llint. asm: ex- 
amples: linc and ldec functions, page 96). 

Thus, both models have drawbacks. 
Speed is gained at the expense of (essen- 
tially) unlimited program and data space. 
Use the large-memory model for big pro- 
grams that use big chunks of data. Other- 
wise, stick with the small model. 


Drawbacks of the 
Small-Memory Model 


Assuming that you use the small- 
memory model (by choice or because of 
your compiler), everything will run 
smoothly until it becomes necessary to 
deal with memory outside of the C data- 
address space. For example, it might be 
nice to use large buffers for copying files 
or for keeping help information. Another 
possibility would involve accessing special 
locations in the memory map. 

The ability to use long pointers in a 
small-memory model can be implemented 
with relative ease. A set of such routines 
is presented in Listings One through Five 
(pages 88-104). A description of the Long 
Pointer Package and applications for the 
package form the remainder of this column. 


The Long Pointer Package 


The Long Pointer Package supple- 
ments a C environment by allowing 
references to memory locations to occur 
anywhere in the 20-bit address map. 
This is done by defining a new data type, 
LPTR (via a typedef), as shown in Figure 
1 (page 86) where LWORD is defined as 
the structure shown in Figure 2 (page 86). 
This format for LPTR makes the addresses 
defined directly compatible with normal 
long pointers used at the assembly level. 
These long pointers are stored in the 8080 
style: least-significant byte of address 
first, most-significant byte of segment last. 

The lowest-level routines that support 
long memory references are, of necessity, 
coded in assembly language. The routines 
that implement many of the lowest-level 
functions in a noncompiler-specific way 
are included in Listing Four (11sup.asm). 
Routines that implement functions for 
Aztec C86 (a typical 8086 C compiler) 
Version 1.05i are included in Listing Five 


(1 lint.asm). The user may have to modify 
these routines to work with other C com- 
pilers if register usage or stack arrange- 
ments differ. 

In order to actually use the routines 
with C programs, the header file “‘lsup.h”’ 
must be included at the beginning of mod- 
ules that use or refer to LPTR data types. 
The-“"isup:h™ “file: refers: toc“ lsup. hh” 
also. These two headers are presented in 
Listings Two and Three, respectively. 


Supported Functions 


The package supports a number of 
functions involving long pointers. There 
are routines to add offsets to long pointers 
and to copy memory between long pointers 
and routines to return data addressed by 
long pointers. A complete list of these 
functions is included in Table I (below). 
In this table, the file in which the function 
is located is mentioned. 


file: sup. < (some c Papper routines) 





file: 







flptr lotr, sptr ) 


Iche( Iotr). _. 
int 


| _stch r (lr p 
I —stint nt 


linc( \ptry _ 7 
Idec(Iptr) 





file: 


linc © 
idec 
ladd — 

Isub 

lsum 


Icopy 





Table 1. 


reverse if Hoad( > _ 
increment long pointer 
decrement long pointer 


general oe to lo ig cop ) 
(can copy up to 1024K oe memo 


llsup.asm (compiler independent functions) 

7. increment a long pointer - 
decrement a long pointer 

_add an unsigned offset t 

a sub an unsigned offset f ) 
add a signed offset from a long 
general copy routine _ 


An Example 


One useful application of long pointers 
under MS-DOS 2.0 involves accessing a pro- 
gram’s environment block. The environ- 
ment block is a Unix-like set of environ- 
ment variables and values. This is normally 
used to affect some particular aspects of 
program execution. Specifics about the 
environment address are included in the 
inset on page 88. Interested readers 
should also refer to the DOS 2.0 users’ 
manual for more details. 

The example program env.c reads the 
environment block and displays the con- 
tents of the whole block on the console. 
In effect, it provides the same listing 
feature as the MS-DOS SET command. 


Conclusion 


In this column I have discussed 
various aspects of memory models for 
8086 C compilers. I have included a set 







itint:s asm (aztec Cc dependent s support routines) : . 
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of C and assembly-language functions 
that supports long pointers under a small- 
ee le le _ | memory-model environment. With this 
vier ee ae : package, users can enjoy the best of both 
worlds: access to arbitrary amounts and 
locations of memory, while retaining the 
efficiency of short pointers for regular 
code and pointer operations. For users of 
environment blac compilers that only support the small 
naintenance routine ae is given poe ntca! model, this, package allows access to 

Aztec tine is called $begin features that were previously off-limits to 

compiler. The user 8086 C programmers. 

t of env.c for the 
for this oper- 









BB 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 199. 








re to shrink its mem ie aioemian. : a 
This is normally done i in the initial 
— In Aztec “ oe must be di ie | 


with the long pointers, it 
using the MS-DOS SETBI 
| naintenance routine of 


| in $begin. 







C/ UN 1X (Text begins on page 86) 
Listing One 


Z20 OOOO KKK KK KKK KK KK KKK KKK KKK KKK EK KKK KK 


* 

x lsup.c created: 25-Mar-84 a 
x x 
K long pointer support for small memory model 8086 C compilers. * 
* ¥ 
x version 1.00 as of 25-Mar-84 | 
¥ * 
K Copyright 1984 (c) Anthony Skjellum. x 
X All rights reserved. x 
x ® 
x This program may be freely distributed for all non-commercial * 
x purposes, but may not be sold. x 
x x 
* The routines contained here are designed to be portable to ¥ 
* a large variety of compilers. Currently they have been tested 
x with Aztec C86 v 1.051 only. x 
x x 
x Modules comprising this package: x 
* x 
x lsup.c this file. x 
x lsup.h header/definition file. x 
x _isup.h lower level header for this file x 
x lisup. asm assembly language support (compiler x 
K independent) 
% llint.asm compiler interface code (compiler x 
x dependent) % 
x | 
K Subroutines included here: x 
x (those marked with an asterisk are only included if compiler a 
x used lacks some preprocessor support feature) x 
* x 
. x 
: # 
FOCI ICO OOOO OOO OO IO IO OOO IORI GIGI OK IC 


Sa erase me scaccanrcarcs ee ese TR NA ae AT TT EES 
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#include "_lsup.h" /* header with definitions */ 


/*% 


Special routines: Included only if compiler lacks one of 
several features. 
x / 


/* lassignidest, source): assignment of type LPTR to the left x/ 


#ifndef MSUBST 


lassign (dest, source) 
LFTR dest; 
LFTR sources; 


% 


dest. llong = source. llong; /* assignment x*/ 


%. 
4 


#endi f 


/* 


General purpose routines: 
x / 


/* listrcpy(dest,src): copy null terminated strings between long ptrs */ 


listrecpy (dest,src) 
LPTR Xdest; 
LFTR xXsrecs; 


{ 

char chr; /*¥ temporary */ 

while(1) /X¥ loop x/ 

{ 
chr = lehr(&src)s; /* get a character x/ 
1 _ stchr (&dest,chr); /*% store a character */ 
linc (&dest) ; /X¥ increment destination ptr X/ 
linc (&src); /*¥ and source pointer x*/ 
Lt ctor? /*¥ we are done at eos */ 

breaks 


hed 


+ 

/*% debugging routines: x*/ 

Iprint (lptr) 

LFTR XKlptrs 

: print? ¢"AZ1x", iptre=>_lliong); 


} 
End Listing One 
Listing Two 
#include " lsup.h" 
/* place any special function specifications (defined in Isup.c) heres x/ 


End Listing Two 
(Listing Three begins on next page) 





Dr. Dobb’s Journal, June 1984 89 





C/ U N IX (Listing Continued, text begins on page 86) 
Listing Three 


LEK KKK KKK KKK KKK RK KKK KKK KKK KR KKK AK KKK KKK KK KKK KKK KKK KKK KKK RK KKK K KKK KEK 
XK x 


* _isup.h created: 25-Mar-84 * 
x & 
K a component of Ilsup.c * 
* x 
x version 1.00 as of 25-Mar-84 2 
x x 
& Copyright 1984 (c) Anthony Skjellum. x 
* All rights reserved. ® 
K * 
& This program may be freely distributed for all non-commercial x 
x purposes, but may not be sold. x 
¥ x 
K This is a header/definition file which must be included x 
x in any module which utilizes long pointers. ‘ 
K : x 
OOOO KOK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KARR KKK RK EK / 
/* 
compiler feature toggles: . 
comment out any which don’t apply to the compiler in use. 
x / 
#define MSUBST /* macro substitution supported x/ 


/*k typedefs */ 


typedef struct — lword 

; 
unsigned addr; 4% address x/ 
unsigned _seqms /*% segment x/ 


+ LWORD; 


typedef union — lptr 


iu 


long _llong;: /% long format (for assignments) X/ 
char _istr([4]; /* character format */ 
LWORD _lwords /*¥ long-word format x*/ 


/*¥ constants K/ 

/*¥ macros X*/ 

/*¥ lassignidestination, source): effect assignment of type LFTR */ 
#ifdef MSUBST 

#define lassignid,s) d. llong = s._llong; 

#endi f 


/* function specifications: */ 


char leche); 


End Listing Three 


(Listing Four begins on page 92) 
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Configured for a wide variety of systems. _ : 
Disk formats include 8-inch, Osborne, Xerox ... F777 


CP/M* Software 


A>DBPACK: Data base manage- 
ment; indexing, sort/search, 
tabulation, address labels ... 

A>DBPACK-II: Advanced’ data 
management; payroll, inventory, 
large & complex data bases ... 

A>COMCOM: Communication pro- 
gram; powerful, yet easy to use. 

A>CPMCPM: Transfer files (any 
type) between CP/M computers. 

A>FILER: Compresses, archives, 
catalogs & organizes files. 

A>UNERA: Recovers erased files. 

A>MULTED: Multi-file text editor. 


CP/M is a registered trademark of Digital Research 
OT Spr Raa GRAN SRE RY EAE SESE RY Nees eae Re ee Ss ee SS 


COMPU-DRAW et 
1227 Goler House 
Rochester, NY 14620 
Phone: (716)-454-3188 


Dealer 
inquiries To 
invited a 


MasterCard, Visa & American Express cards welcome. 
Separately ordered documentation may be returned 
for full refund within 10 days? 


It‘s the writing on the wall as ie i Ene 
SS aid 1s RS BS ERS Pt EY SE 


The fastest CP/M-80 C 
compiler available today 


Version 1.5 contains some nifty improvements: 

The unscrambled, comprehensive new User’s Guide 
comes complete with tutorials, hints, error message 
explanations and an index. 

The CDB symbolic debugger is a valuable new tool, 
written in C and included in source form. Debug with 
it, and /earn from it. | 

Hard disk users: You can finally organize your file di- 
rectories sensibly. During compilation, take advantage 
of the new path searching ability for all compiler/linker 
system files. And at run-time, the enhanced file I/O 
mechanism recognizes user numbers as part of sim- 
ple filenames, so you can manipulate files located any- 
where on your system. 


BDS C’s powerful original features include dynamic 
overlays, full library and run-time package source 
code (to allow customized run-time environments, 
such as for execution in ROM), plenty of both utilitar- 
ian and recreational sample programs, and speed. 
BDS C takes less time to compile and link programs 
than any other C compiler around. And the execution 
speed of that compiled code is typically lightning fast, 
as the Sieve of Eratosthenes benchmark illustrates. 
(See the January 1983 BYTE, pg. 303). 


BD Software 8” SSSD format, $150 

P.O. Box 9 Free shipping on pre-paid orders 
Brighton, MA 02135 Cail or write for availability on 
(617) 782-0836 other disk formats 


— Cr 0.5 


Z80* SINGLE BOARD COMPUTER! 
64K RAM — 80 x 24 VIDEO DISPLAY — FLOPPY DISK CONTROLLER 


BOARD MEASURES 
TTR" x 12h" 


ALL ORDERS WILL BE 
PROCESSED ON A STRICT, 
FIRST COME, FIRST SERVED 
BASIS! ORDER EARLY! 


UNBELIEVABLE LOW PRICE!!! 


$29.95 


NEW 
“pata ano Roms) | PRICE 


GROUP SPECIAL: 
BUY 6 FOR $165! 


USES EASY 
TO GET PARTS! 


GIANT COMPUTER MANUFACTURER’S SURPLUS! 


Recently Xerox Corp. changed designs on their popular 820* computer. These prime, new, 820-1 PC boards were declared as surplus and sold. Their loss is your gain! 
These boards are 4 layers for lower noise, are solder masked, and have a silk screened component legend. They are absolutely some of the best quality PC boards we 
have seen, and all have passed final vendor QC. Please note, however, these surplus boards were sold by Xerox to us on an AS IS basis and they will not warranty nor 


support this part. 


We provide complete schematics, ROM'’S, and parts lists. If you are an EXPERIENCED computer hacker, this board is for you! Remember, these are prime, unused PC 
boards! But since we have no control over the quality of parts used to populate the blank board, we must sell these boards as is, without warranty. You will have to do any 


debugging, if necessary, yourself! 
*CP/M TM OF DIGITAL RESEARCH INC. (CALIF.) 820 TM OF XEROX CORP. Z80 TM OF ZILOG 


B. G. MICRO 


ADD $2 PER PC BOARD FOR SHIPPING. 


P. 0. Box 280298 Dallas, Texas 75228 


(214) 271-5546 nee | 


WE ALSO CARRY LS, Z-80, EPROM’S, ETC. SEND FOR FREE CATALOG! 


(USA and Canada) 


TERMS: Orders over $50 add 85¢ insurance. No COD. Tex. Res. Add 6% 
Sales Tax. Subject to prior sale. Foreign orders: US funds only. We 
cannot ship to Mexico. Foreign countries other than Canada add $6 per 
board shipping. 


Circle no. 6 on reader service card. 








C/ U Ni IX (Listing Continued, text begins on page 86) 
Listing Four 


Lllsup. asm 

a component of Isup.c 

Copyright 1984 (c) A. Skjellum. All rights reserved. 
version of 25-Mar-84 


This routine makes no assumptions about the behavior of the 
C compiler in use. 


all procedures are "near" 


“ae “RS °SS sae “BS «Be “SS see ‘SS sae SS “Be RE Rs 


dseq segment para public *data’* 
dseqg ends 
cseg segment para public *“code* 


assume cs:cseg,ds:dseg 


of 

g Lincs: increment a long pointer by 1 byte 

I 

s expects: es:bx with long pointer to increment 
sy returnss pointer incremented. 

; consumes: G55 Bk. fs. ax 

8 


Sunt) Chic 


Link proc near 
inc bx s increment low part of word 
or bw. Dx s is it zero now? 
jnz linc_exit ; no, we are done 
MoV x,@S 
add ax, LO00Oh » another 64k of paragraphs 
mov GS, Ax ; store back to es 
Ling exits 
ret , return 
line endp 
- 
s ldec:s decrement a long pointer by 1 byte 
a 
; expects: es:bx with long pointer to decrement 
; returns: pointer decremented. 
; consumes: es, bx. ff, ax 
5 


public ldec 


ldec proc near 
or ae Sek up ; zero currently ? 
dec bx ; decrement it 
jnz ldec_ exit ; Just decrement low end and exit... 
mov ax,eS ; get segment register 
Sub ax, 1LO00h ; remove 64k of paragraphs 
mov eS, AX ; store back to es 
ldec_exit: 
ret ; return 
ldec endp 
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ladd: 

H 3 
; expects: 

a 
; returns: 

y CONnsumMes: 
q 

public 
ladd prac 
add 
sre 
mov 
add 
mav 
ladd exits: 

: ret 
ladd endp 
y tisub: 

: 

4 @xpects: 

5 
5s returns: 

; consumes: 
H 

} public 

lsub proc 
sub 
jnb 
mov 
sub 
mov 

lsub exit: 

, ret 
1 sub endp 
5 
s isums 
. 

5 expects: 

a 
s returns: 

5 CONSumMeSs: 

public 
lsum proc 
or 
jm 
call 
rat 
lsum neg: 
and 
jnz 
Mov 
lsum _ neg ok: 
call 
ret 
lsum endp 
5 
s Loory: 


add a constant to a long pointer 


esi:bx with long pointer’s original value 
ax with unsigned constant to be added 
pointer with constant added 

@o,. 56%, °F). ax 


ladd 

near 

[5x 4 AX ; add in offset 

ladd exit ; no carry, $0 we are done. 
AX, @S | 

ax, LOOOK 5 add 64k of paragraphs 

GES, Ax ; and store back to es 


subtract a constant from a long pointer 


esi:bx with long pointer*s original value 
ax with unsigned constant to be subtracted 
pointer with constant subtracted 

es, bx, f, ax 


lsub 

near 

bx, ax s subtract offset 

lsub exit ; nO borrow, so we are done. 
AaX,@S 

ax, LO00Oh § subtract 64k of paragraphs 
ES, ax 5 and store back to es 


add a signed offset to a long pointer 


es:bx with long pointer 

ax with signed offset 

pointer with constant added (signed) 
es, bx, f, ax 


lsum 

near 

AX y AX s negative? 
lsum_neg 

ladd do addition 


2s "as 


and exit 


an,O7ffh 
lsum _neg_ok 
ax, B000h s ~32768 value (don’t treat as 0) 


and out sign flag 


lsub 


copy from one long pointer to another, 


(Continued on next page) 
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C/UNIX 


(Listing Continued, text begins on page 86) 


Listing Four 


“25 


expects: 


returns: 


Consumes: 


. 
‘at ‘35 ‘At ‘M8 ‘as ‘42 “a8 ‘St sas ‘RE ‘aa ‘aE CRE 


up to 1024k bytes of data 


ds2si with src 
esrdi with dest 


block copied 
ds, eS intact 
ak, ‘CX... % 


public lcopy 


lcopy proc 


push 
push 
and 
xchg 
Mov 
shl 
Pop 
MOV 
add 
MOV 
MoV 
add 
Mov 


pop 


add 
jnc 
mov 
add 
MOV 
no dest adj: 
Sree 
add 
jne 
mov 
add 


mov 


uy 
cr 


no mor _adj: 
std 
ic. +GoOpt 
or 


convert dx 


near 


dx 

cx 
Gx,iS 
dh,dl 
cl,4 
gh,cl 
x 


AX,€S 
ax, dx 
GS, Ax 
ax,ds 
an, dx 
ds, ax 
clx 


di,cx 

no dest adj 
ax,@5 

ax, 1000h 
GS, Ax 


address 
address 
dsicx with length 


into segment 


‘an ‘as 


same work for source 


$i,cCx 

no mor adj 
axn,ds 

ax, LQ00h 
ds, ax 


this stage: 


es:di is at the 
ds:si is at the 


Sl, Si 


(dx is high order, cx is low order) 


this routine uses a copy downward method, to produce 
correct copying for overlapping regions 


forms 


save original form of dx 
save low order of long count 
smallest meaningful value 
switch upper and lower parts 


effect is shift left by 12 bits 
and recover low order of long count 


gross adjustment of segments 
recover original form of dx 


adjust dest. ptr to end of area 
add offset 
and store back to segment register 


pointer: 


do the addition 
no more adjustment needed if no carry 


do the adjustment 
and store back to ds 


last byte of the dest. area 
last byte of the src. area 


set direction flag for moves 


is Si zero ? 
(Continued on page 96) 
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THE FULL-FEATURED KEYBOARD EXPANDER 
for all 8080-8085-Z8O computers using CP/M 2.2 


MagiKey™ will redefine your keys as character strings ... and transform single 
keystrokes into comrnands for programs, words for word processors, data for data 
bases, and messages for modems. Without hardware or system modifications. 


MagiKey™ has more advanced features than any other CP/M keyboard ex- 
pander. For example: 


* Redefine a key to send the string: - 
“Run WordStar and edit form letter number 17” 
Hit the key. YOU will see the string, but “WS FRMLIRI7” will be sent to CP/M. 
MagiKey'™'s CONSOLE REDIRECTION can display messages which are invisible 
to programs and CP/M ... very useful for recalling key assignments, custom 
operator prompts, and making CP/M friendlier. 


* Redefine a key to run several programs in sequence. Each program can wait 
for keyboard input or receive pre-defined commands and data. MagiKey™'s 
built-in BAICH PROCESSING doesn't use CP/M's SUBMIT, and handles programs 
that CP/M’s XSUB can't. 


* Redefine a key to display the prompt: 
“Execute SuperCalc using the spreadsheet file” 
Press the key to display the prompt. Type the file name, hit RETURN, and you're 
into SuperCalc. When done, a single keystroke saves your updated spreadsheet. 
You don't have fo remember or retype its name. MagiKey™'s RECURSIVE key 
redefinition mode automatically does it for you. 


WE INVITE COMPARISON 














$100 
8” SSSD most 5%” formats 
add 6% tax in CA 
check, VISA, M/C 










16609 Sagewood Lane 
eta i cereearoagah Poway, California 92064 
WordStar (tm) Micropro (619) 693-1022 








Z8O0ASM 



































e Complete Zilog ® Conditional assembly 
Mnemonic set e Assemble code for 

© Full Macro facility execution at another 

© Plain English error address (PHASE & 
messages DEPHASE) 

@ One or two pass e Generates COM, HEX, 
operation or REL files 

© Over 6000 lines/minute ® COM files may start at 
INCLUDE files ° ip ene! may be in 

e Allows external bytes, icrosont format or 
words, and expressions SLR format 
(EXT1 * EXT2) e Separate PROG, DATA 







* Labels significant to 16S; OMMON address 
characters even on 


e Accepts symbol defini- 
rhea Le Fone tions from the console 


® Integral cross-reference ° Flexible listing facility 


° ee owe DATE in listing (CP/M 
optionally sig Plus Only) 











For more information or to order, call: 


1-800-833-3061 


In PA, (412) 282-0864 


Or write: SLR SYSTEMS 
1622 North Main Street, Butler, Pennsylvania 16001 




































* Compiler option to generate special 
symbol table for new dynamic 


debugger, the distribution package 
now requires two disks.) 


* Takes full advantage of CP/M® 2.x, 
including random-record read, seek 
relative to file end, user number 
prefixes, and better error reporting. 


V1.5 .....$120.00 
V 1.46 ....$115.00 


(needs only 1.4 CP/M) 


Other C compilers and 
C related products 
available .. . Call! 


TERMS: CHECK, 
MONEY ORDER, C.O.D., 
CHARGE CARD 
HOURS: 9 am—5 pm 
Monday —Friday 


(316) 431-0018 
















debugger by David Kirkland. (With the 


Including a new dynamic debugger 
Still the choice of professionals 


¢ Clink option to suppress 


warm-boot 


* New, fully-indexed 180 page manual , 


* New library file search capabilities 


* © CP/M is a trademark of Digital 


Research, Inc. 


IT’S HERE! 


MONEY MATH 


¢ Uses BCD internal 
representation. 


e You choose from two types 


of rounding. 


* Configurable exception 


handling 


* Distributed with 12 digits 
precision. Easily configured 


‘ for more or less 


e Excess 64 exponents 


SOURCE 
INCLUDED 





es 


es | Dedicated Micro 


== 5 P.O. Box 481, Chanute, Kansas 66720 


include $2.50 for postage and handling | 


a oD. 
> 


Systems. Inc. 


$500 











Circle no. 20 on reader service card. _ 


Six Times Faster! 


Super Fast Z80 Assembly Language Development Package 
SLRNK 


@ Links any combination © COM may start at 
other than 100H 
Microsoft format REL e HEX files do not fill 






of SLR format and 






files 







operation allows output 
files up to 64K 







files 
e User may specify PROG, 


DATA, and COMMON 
loading addresses 













Sisal cl t Ad 
Us eee 


—< 


available 






empty address space. 


e@ One or two pass e Generate inter-module 


cross-reference and 


load map 


° Generates HEX or COM_e Save symbol table to 


disk in REL format for 


use in overlay 
generation 


from console 


© Declare entry points 


e The FASTEST Micro- 


soft Compatible Linker 





e Complete Package Includes: Z80ASM, SLRNK, SLRIB 
- Librarian and Manual for just $199.99. Manual only, $30. 


@ Most formats available for Z80 CP/M, CDOS, & TURBODOS 


¢ Terms: add $3 shipping US, others $7. PA add 6% sales tax 













C/ U Ni 1X (Listing Continued, text begins on page 86) 
Listing Four 


lodsb s get byte de:Csil, decrement si 
jnz no ds adj - no need to adjust if non-zero at start 
Mav ax,ds 
sub ax, LO00h 
mov ds, ax s adjust pointer for next load 
no ds adj: 
or di,di : is di. zero ? 
stosb > set byte es:Cdil = al, decrement di 
jnz no es adj s no need to adjust if non-zero at start 
mov AN, 6S 
sub ax, LOO0Oh 
MOV 2S, ax - adjust pointer for next store 
no es adj: 
loop lc oop s copy whole block (--cx, jnz lce_loop) 
dec cx : work on outer loop 
or dx ox 
Nz tc. oop : loop over dx counts too 


lcopy 


Iseq 


‘as "eB we hu. 


inc 
tine 
ret 
endp 


ends 
and 


we are done 


$1 
di 


‘aan ‘as 


restore to original calling values 
exit 


End Listing Four 


Listing Five 


llint.asm 

version of 25-Mar-84 

a component of Ilsup.c 

Copyright 1984 (‘c) A. Skjellum. All rights reserved. 
these routines are setup for Aztec C86 v 1.051 


all procedures are "near" 


‘an ‘RS ‘as ‘SS ‘an ‘RE ‘an ‘SE ‘ae ‘at cae ‘“*2 ‘ss 


dseqg segment para public “data’ 
dseqg ends 
cseg segment para public *code’* 


assume cs:csegq,ds:dseqg,es:dseg,ss:dseg 


Routines which do not merit calls to portable routines in llsup.asm 


‘ae ‘RS ‘ae 
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ds = flptrilptr,sptr) 
Ler xXiotrs 
char Xsptr; 


form a long pointer from a "normal" ds relative short pointer (sptr) 
and store at Ilptr 


notes no portable segment (flptr) in llsup.asm since this 
is such a trivial routine. 


return value is also ds, should this prove useful 


RUGILS ' Fiptr 


2c... prec near 
Mav bx. Sp s prepare for argument load 
MOV ax,4Cbx J s get short pointer ds:ax 
Mav bx, 20bx J * get address where to store long pointer 
mov Lox J, ax ; Store low order 
Mov ax.,ds 
MoV 2Cbox J, ax s store high order 
ret ¢ return value is also ds 


filptr_ endp 


“me “RS RS ee RS RE OEE ES 


the following four routines are examples of what can 
be done to supplement general routines with specific 
(more efficient ones). Many more variations are 
possible than the two presented here. They follow 
directly from this basic idea: 


char lchr (lptr) 
LPTR xlptrs 


return character pointed to by .htr 


puolic “Lehre. 


aot a) ale proc near 
MOV bx, Sp s Prepare for argument load 
push ds : Save ds register 
mov bx,2Cbx J ; get address of Iptr 
MoV ax, Cox . 
MoV ds,2Cbx J s begin forming pointer 
MOV bx, ax 5 ds:bx now is valid pointer 
sub AN. AX 5s =eroa whole acc. 
MoV al, fbx J s get the character 
pap ds 
ret. s @xit with char in a»x 
Cots all endp 


‘22 ‘RR "ME Rae ‘AS 'SE 


es 
4. 
on 

rt 


int lint tiptr) 
LFTR Xilptr; 


return integer or unsigned pointed to by pte 


public: Link. 


proc near 
MaV bx, sp ; prepare for argument load 
push ds 5; Save ds register 

MoV Dx se Linx d s get address of Ilpr 

Mov ax, Cbx J] ~ 


(Continued on next page) 
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C/ U Ni IX (Listing Continued, text begins on page 86) 
Listing Five 


MOV ds, 2Cbx J ; begin forming pointer 

mov bx .ax » Gs:bx now is valid pointer 

MoV ax, [bx] s get the integer or unsigned 

pop ds ; recover old ds value 

ret ; and exit with char in ax 
Lint. endp 


1 stchr (lptr,chr) 
LFTR Xlptrs 
char chs 


store character chr at address I|ptr 


“mS “S2 «ma ‘RE mn 'RE ‘28 


pubic... i. stcnr | 


L. stchr = proc near 
MOV bx, Sp : prepare for argument load 
mov cl,4€bx J ; get character 
mov bx, 2Cbx] : prepare for load of long pointer 
push ds ; save ds segment register 
mov ax, Cbx J : : 
mov ds, 2Cbx J : begin forming pointer 
MoV bx, ax : dssbx now is valid pointer 
MOV Cbox3,¢i ; store byte 
pop ds 
ret 


1 stchr_ endp 


1 stint (lptr,val) 
LPTR XI ptrs 
int val; 


store integer or unsigned at address Iptr 


‘ee “S28 wes ‘838 ‘as “SS ‘ms 


mublic 1. stint... 


1 _ stint_ proc near 

Mov bx, sp : prepare for argument load 

MoV cx, 4Cbx J : get integer to store 

mov bx, Zi bx J s prepare to form dssbx with correct 
; storage address 

push ds s save current ds 

MOV ax, Cbx4J . 

mov ds, 2Cbx 1] : begin forming pointer 

MoV bx, ax » ds:bx now is valid pointer 

mov Cox 2d,cx ; store the integer 

pop ds 

ret ;. 222 


1 stint. endp 


lloadidest,ilptr,len) 
char Xdest; 

LFTR Klptrs; 

unsigned len; 


general purpose copy routine from long data storage to ds: relative 
storage 


‘en “AR ‘MS ‘gn ‘RS “st "SS AS 


(Continued on page 100) 
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9 
‘ctingss . 
Useful Past notated sour ce phe inpiled code; 
“ Complete 2° source code an 
wi 



















% 
eit 
yER SG ; 
tt le 
s TPL 


The Text Processing Language. A 
text-file runoff program  con- 
sisting of a set of text-processing 
primitive commands from which 
more complex commands 
(macros) can be built (as in Logo). 
Features include: 
¢ Complete customization of 
text processing through 
macro definition and expan- 
sion, looping structures, and 
conditional statements; 
¢ Adapts to any printer; 
¢ Pagination; 
e Text justification and center- 
ing; 
¢ Indexing and tables of con- 
tents; 
¢ Superscripts and subscripts; 
¢ Bolding and underlining; 
¢ Multiple headers and footers; 
¢ End notes and footnotes; 
¢ Widow and orphan suppres- 
sion; 
¢ Floating tables and ‘keeps.’ 


$50 












% vi 
wen 






CHROME 


Chromatography data analysis 
program: 
® Graphic display of analog 
data; 
e Panning and zooming; 
e Automatic peak-finding and 
baseline calculation; 
¢ Full interactive peak editing; 
¢ Computation of peak areas; 
e Strip charts on C. Itoh and 
EPSON printers. 


$100 

















Check appropriate boxes: 








DBX 


Blocked Keyed Data Access 
Module. Maintains disk files of 
keyed data. Can be used for 
bibliographies, glossaries, multi- 
key data base construction, and 
many other applications. 

¢ Variable-length keys; 

¢ Variable-length data; 

¢ Sequential access and rapid 
keyed access; 

e Single disk access per opera- 
tion (store, find, delete) in 
most cases; 

e Multiple files; 

¢ Dynamic memory allocation 
for RAM-resident index and 
current “page” of entries; 

¢ Includes demonstration pro- 
gram and testbed program. 


$50 



















PLANE 


Planimetry program: 
e Bit-pad entry of cross sec- 
tions; 
¢ Real-time turtlegraphics 
display; 
e Calculation of areas; 
e Saves calculations to text 


file. 
$100 











FORMAT PRODUCT PRICE Seer 

C] 8” UCSD SSSD L] DBX $ 50 

lL} 5%” Apple Pascal (} PDMS $250 

CL} 544” UCSD IBM PC 320k : bi : 5 Siteos 

L] 8” CP/M SSSD 

() 5%” IBM MS-DOS CO) MINT $ 50 [_] MasterCard 

U1 5!" CP/M Osborne = sie eyed (Please include card # 
LJ 3 
—] PLANE $100 and expiration date) 


Apple and Apple Pascal are trademarks of the APPLE Computer Corp. IBM and IBM PC are trademarks of International Business 
Machines. UCSD Pascal is a trademark of the Regents of the Univ 


puter. EPSON is a trademark of EPSON America, Inc. C. Itoh is a trademark of C. Itoh Electronics. 
Circle no 45 on reader cervicre card 


ersity of California. Osborne is a trademark of Osborne Com- 


to resist. 


The Pascal Data Management 
System. A_ user-oriented data 
management system in which 
numeric and alphanumeric data 
are stored in tables with named 
columns and numbered rows. 
Currently being used for dozens 
of different kinds of business and 
scientific applications, from in- 
ventory management to laborato- 
ry data analysis. Includes over 20 
Pascal programs; more than 
10,000 lines of code. Main 
features include: 


¢ Maximum of 32,767 rows per 
file; 

¢ Maximum of 400 characters 

per row, and 40 columns per 

table; 

Full-screen editing of rows 

and columns, with scrolling, 

windowing, global search/ 

replace, and other editing 

features; 

Sorting, copying, merging, 

and reducing routines; 

¢ Mailing label program; 

Reporting program generates 

reports with control breaks, 

totals and subtotals, and 

selects rows by field value; 

many other reporting 

features; 

Cross-tabulation, correla- 

tions, and multiple regres- 

sion; 

¢ Video-display-handling 
module; 

¢ Disk-file-handling module. 


Many other features. UCSD for- 
mats only. 


$250 


L] vIsA 


SOFTWARE 













LJ Check 


SUBVERSIVE 






User ; tation 
= User ra ca doc enato : 
er i: ata structures oe 
agen suggestions sie ee 
and g} . 
ify them, include — 
1 ; 
ae ql i js you'll find hard 
: library of software tools Y 
ing libr 
growing 











ZED 


Full-screen text editor; designed 
to be used either with -TPL or by 
itself. 
¢ Full cursor control; 
¢ Insert mode with word wrap; 
e ‘Paint’ mode; 
¢ Single-keystroke or dual- 
keystroke commands; 
¢ Command synonyms; 
¢ Global search and replace; 
¢ Block move, block copy, and 
block delete. 


$50 









SCINTILLA 


A log logit curve fitting program 


for radio-immunologic data; must 


be used with PDMS (described 


above). 
¢ Multiple protocol files; 
® Quality control files; 
e Four-parameter non-linear 


curve fit. 
$250 


UCSD formats only. 













A terminal emulation program for 
communication between com- 
puters of any size. 

e User-configurable uploading 
and downloading of files; 

¢ X-ON/X-OFF and 
EOB/ACK protocols; 

e Interrupt-driven serial input 
(for Prometheus Versacard in 
Apple II); 

¢ Printer-logging. 


$50 








Miiexe yy 


A division of Pascal & Associates, 


135 East Rosemary St., Chapel Hill, NC 27514 


















C/ U Ni IX (Listing Continued, text begins on page 86) 
Listing Five 


we assume es = ds for Aztec C explicitly here 


due to convenient 8086 instructions, the portable function would 
consist merely of a "cld", "rep movsb" sequence followed by a return. 
Therefore, no portable lload is included in 1]lsup.asm | 


‘2s ‘RS «ss “BS ‘2e ‘RR “BS 


Public -llGad 


Ligad.. prac near 
MoV bx, Sp ; prepare for argument load 
push ds * save Aztec ds segment 
push Si 
push di ; save source and destination indices 
mov Ox .GEbx J s get length for move 
Mov gotcha ; es:di now has the destination address 
mov bx,4Cbx J : prepare to load long ptr 
mav Si, Cbx J s get low order 
mov ds,2CbxdJ ys and then high order 
ang 
reap moveb »; do the move 
pop ci 
pap Si 
pop ds 
reat 


lload = @ndp 


lstor (lptr,src,len?) 
LPTR ¥lptrs 

char *orc; 

unsigned lens; 


Reverse of lload: this routine copies data from ds:src to Iptr 
Once again, there is no llsup analog. 


“B82 se ‘AS “BS "SS “SS ‘as “BE “RS 


public Ilstor_ 


rSstor ac near 

Mav bx. Sp * orepare for argument load 

push es 

push di 

push Si - save registers as required by Aztec C. 

MoV ex, 6fbx.] » get length of move 

MoV $1,4(€b6x ] » ds:si now contains source index 

mov bx, 2Ebx 1 : prepare to form es:di 

mov Gi. tax 

mov es, 2Cbx J 

rep moaveb ; move the data 

pop Si 

pap di. 

pop es} 

ret - restore registers and exit 
Istor. endp 


saad Gnd’ Josie etn sstulss Rte woken wabhy'tenen' enh |antine’ sents, Seki enemy Gasie! Gotti: want Gita gene nde. Gleb oSGRk, Cook gaya onatay GIR S295 9080 Site avant eanan Sette SIGS eben Mane pOhtO Semen Btyte SWE SueS Soeme SiN entre SieEe atom MELTS Paeay Smee. OES SION? AON Se 


routines which call portable subroutines in llsup.asm 


ss —005058059_...________.... ea 
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linc (lptr) 
LFTR Xlptr; 


increment a long pointer by i 


‘Se “Rt °“S2 «zz ‘SS ‘ae ‘se 


Beolic linc. 


Lane. proc near 
extrn linc:near 
may bx, Sp 
push eS 
mav DX, «hx J 
push bx 
MOV es, <Cbx J 
mov ay Lass 
call LAC 
pop ax 
xchg ax, bx 
Mov Cbx J], ax 
mov 2CoxJ,es 
pop es 
ret 

Princ... endp 


ldec (lptr) 
LetR. *iptrs 


decrement a long pointer by 1 


“23 “RS “MS -mae °SS *RE 


public Ildec_ 


ldec _ proc near 
extrn ldec:near 
MoV bx. Sp 
push es 
Mav bx, 2Cbx J 
push bx 
MOV ax, Cbx J 
MoV es, 2<Cbx ] 
MOV Dx, ax 
call ldec 
pop AX 
xchg ax, bx 
MoV CbxJ,ax 
mov 2Cbx],@s 
pop es 
ret 

ldec _ endp 


ladd(lptr,offset) 
LFTR Xlptrs; 
unsigned offset; 


add unsigned offset to a long 


“22 ‘ME ‘Se “2S sas ‘Ss ‘*as 


public ladd_ 


ladd_ proc near 
extirn ladd:near 
mov bx, Sp 
push es 
Moy ax,4Cbx J 


Peer COeee ceTee Sener SESee SESES FEES EESES CEEET FETED FORTE PFSES TEESE SOTEE PETES SEEET GEESE GREET SDEEE SOEEE EDEEE SELES EETES SORES SOEET SOETT SEEED BETES crEre crore 


SPOS TTRES FOSSS SSEST CODER CERES TTEES SSESE SCOPE SESE FUSTT BERET SEEET FETED BETES FEttT HERES Seses SORES Genes SoEED SENG enEe 


prepare for argument load 
Save es value from caller 


address where answer will go 
get segment 
and address 
do the work 


‘go "R32 wwe ‘ER 


store the value 
recover the old value 
and exit 


prepare for argument load 
preserve es 

get address ds:bx 

address where answer will go 


do the decrement 


store the value 
recover it for sake of caller 
and then exit 


“22 ‘aan *Se 


pointer 


prepare for argument load 
Save es value of caller 
get the offset to ax 


“22 «as ‘sas 


(Continued on next page) 
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C/ U Ni IX (Listing Continued, text begins on page 86) 


Listing Five 


MoV 
push 
Mav 
mov 
mov 
call 
Pop 
xchg 
mMav 
mov 
POp 
ret 


ladd_ endp 


LFTR xlptrs 


“oe “RS cue ‘S28 «as SS “Ss 


bx 21084 
bx 

cx, CBx J 
es, <Cbx J 
bx, Cx 
ladd 

AX 

ax, bx 
Cox J, ax 
e2CbxJ,es 
eas 


lsub(lptr,offset) 


unsigned offset; 


subtract unsigned offset from a 

public Ilsub_ 

1sub_ proc near 
extren lsub:near 
MOV bx, Sp 5 
push es 4 
mov ax,4Cbx J ; 
mov 6x, 2tbx J 
push x : 
mov cx, fox J 
mov es, <Cbx J 
mov ox. ts 
call lsub : 
pop ax 
xchg ax, bx 
mov Cox], ax 
mov albxJd,es : 
Pop es 5 
ret . 

1sub_ encp 

; lsum(lptr,offset) 

. Ae TR Si ptr; 

5 int offset; 

: 

s add signed offset to a long poi 
public Ilsum_ 

lsum_ proc near 
extrn lsum:near 
MOV bx, sp . 
push es H 
MOV ax,4Cbx J : 
mov bx, 2Cbx J 
push bx 
MOV cx, Cbxd 


address where answer will go too. 


do the addition 


store the value 
recover old es value 
and then exit 


long pointer 


prepare for argument load 
preserve es 

get the offset 

at this addr. 


store answer Soir. 


do the subtraction 


store the value 
restore es 
and then exit 


nter 


prepare for argument load 
preserve caller’s es 
get the signed offset 


oe aes Cae ee ee 
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mov es, 2Cbx J 


mov bx, cs 
call lsum ; do the signed addition 
pop AX 
xchg ax, Dx 
mov Cox Jd, ax 
mov <Cboxj,es ; store the value 
Pop eS 
ret s exit. 
lsum_ endp 

lcopy (dest,src,len) 

LFTR Xdest; 

LFTR xXsrcs 

long len; (treated as a long unsigned quantity) 


copy from src to dest, len bytes. 


note this routine can be used to copy arbitrarily large chunks of memory 


ws ‘*RS as (68S les SE SE les A 


Hubisic.. icapny.. 


lcopy. proc near 
extrn lcopy:near 
MOV %, SP ; prepare for argument load 
push ds 7 


(Continued on next page) 


GREP .C 


The UNIX’ regular 
expression recognizer 


The Writer’s Really Incredible Text Editor _ MA 5 ne 


lives up to its name! It’s designed for 


creative and report writing and carefully Wildcard ex pansion & 


protects your text. Inciudes many : 

features missing from WordStar, such as o}) ol-¥- 9m ke) aw 40-1 om © 

sorted directory listings, fast scrolling, 

and trial printing to the screen. All editing 

commands are single-letter and easily All programs come with complete source 


changed. Detailed manual included. code, in C. Price: $35 each: $50 together. 
WRITE is $239.00. 


xo) am sslel da: Menace) aiil-hacels| 


WORKMAN & ASSOCIATES Seana ane ee 


# SOFTWARE ENGINEERING CONSULTANTS 
112 Marion Avenue 


P.O. BOX 5679 
Bigg Sarees BERKELEY, CA 94705 


; (415) 548-6268 
All US orders are postpaid. We ship from stock on 


many formats, including: 8", Apple, Osborne, KayPro, 
Otrona, Epson, ‘Morrow, Lobo, Zenith, Xerox. Please 
request our new catalog. We welcome COD orders. 





+ A-trademark-ef Bell Laboratories. 


Circle no. 77 on reader service card. Circle no. 69 on reader service card. 
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C/ U hw IX (Listing Continued, text begins on page 86) 
Listing Five 


lcopy_ 


cseg 


push es ; Save segment registers 

push ci : 

push $1 ; gave these registers for Aztec C 
mov cx ,olhxd s get length ‘(low order) 

mov cx, SLbx s high order of length 

Mav ax,2Cbx J : get ds:ax as pointer to dest. 
xchg ax, bx 

Mov adi, toxa 

MoV es, 2<Cbx J] 

MOV Dx aX 

MOV bx,4Cbx J s get ds:bx as pointer for dest. 
MOV si1,Cbx J 

MOV ds, 2Cbx J s get long pointer 

call lcopy 

pop Si 

pop di 

pop es 

pop cls 

ret 

endp 

ends 

enc 


End Listing Five 


Listing Six 


/* 


env.c created: 25-Mar-84 


This package echoes the environment to the standard output. 
example of using long pointers with lsup package. 
This is set-up to work with Aztec C. 


by Anthony Skjellum. (C) 1984. All rights reserved. 
Released for non-commercial purposes only. 


This program echoes the environment block to the console. 
In effect, this is the same as the DOS 2.0 SET command. 
Nevertheless, it illustrates the usefulness of long pointers. 


SOOT STEET FOOEE TEESE FETE SOSEE FRET FLEES FEET SEEES TURES SEER SEES SEEEE SONGS SELES SEES SOURS OUTS SORES SUERS SEER SEES SEGRE OOEEH FEES COLE SELLE SES ORE AO CO SOS FOES FO NY OE SO AT A A TS i 


The following changes were made to the $begin 
routine of the Aztec C 1.051 module calldos.asm: 


i) a new global variable called envseg was created 


envseg segment word common ‘*data’* 
fenvdat dw 0 
$envseg dw 7? 
envseg -ends 


(Continued on page 106) 
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It’s a headache, of sorts. 


hether your mailing list, account- 

ing package, DBMS, or other end- 
user application is currently under 
development or already on the market, 
you've probably discovered that ex- 
ternal sorting can be a difficult, costly, 
and time-consuming headache. Es- 
pecially in today’s floppy - disk storage 
environment. 


hat’s why we developed 
BEAMSORT™ the revolutionary in- 
place OEM sorting module. The older 
algorithms eat up valuable space on 
your user's often over-crowded disk- 
ettes. By installing BEAMSORI™ 
you get today’s tech- 
ogy at a fraction of 
it’s true develop- 
ment cost, and 
you've got one 
less problem to 


*CPM, MS-DOS, dBase IL and SuperSort are trademarks of Digital 


Research, Microsoft, Ashton-Tate, and Micropro, respectively. 


EAMSORT™ runs under CP/M-80%*, 

CP/M-86*, MS-DOS* and PC-DOS, 
supports multiple-volume files, ASCII, 
Microsoft .RAN, and dBASE II* .DBF 
file formats, and interfaces to all major 
languages. Custom interfacing, operat- 
ing environments, and file formats 
are available. 


hat about performance? 

BEAMSORI™ runs SuperSort*’s 
own benchmark faster than SuperSort* 
does! It’s amazing, but don’t take our 
word for it. Write us on your company 
letterhead for our OEM evaluation kit. 
You must see this for yourself! 


For fast relief. 


InPlace, 


Phlexible Data Systems, Inc. 


3017 Bateman Street, Berkeley, CA 94705 
(415) 540-7181 


GET “C” APPLICATIONS OFF TO A FLYING START 
WITH 


C- TRE TM 


RECORD MANAGEMENT 
SUBSYSTEM 
¢ Advanced B + Tree Structure 
¢ Fast And Efficient 
* Unlimited # Of Keys 
* Keys May Be Duplicate, LIFO/ 
FIFO, Modifiable 
* Record Locking Calls 
* Sequential Access 
* Utilities To Add/Delete Keys 
And Fields, Rebuild Files 
¢ Error Processing Interface 
¢ Store Data Dictionary In File 


C-SORT™ 


SORT/SELECT/MERGE 
SUBSYSTEM 
* Advanced Quick/Tournament 
Sort 
* Sort B-Tree or Sequential Files 
* Automatically Uses All 
Available Memory 
¢ Sort On Any Number/Type 
Of Field 
¢ Select Records According To 
User-Specified Criteria 
* Creates Tag (Index) Sorting File 
* Automatic Interface To B-Tree 


ordering information 


SINGLE UNIT LICENSE 
$99 plus shipping 

Format: 5 1/4” Disk, MS-DOS- 
compatible. Linkable 8086-file 
format modules for Lattice-C 
Compilers, others soon 
Complete documentation. 


Telephone Orders Accepted 
Visa/Mastercard 


(312) 476-8356 


SOURCE CODE OPTION 
$149 plus shipping. 

“C” Source Code is also available: 
requires license. 


MULTIPLE COPY OPTION 
Multiple copies of object code 
may be made with this license at a 
very low unit cost. 


AccuData Software 
Dept. D-6 
P.O. Box 6502 
Austin, Texas 78762 


DeSmet 


The fastest 
8088 C Compiler 
available 


FULL DEVELOPMENT PACKAGE 
* C Compiler 
* Assembler 
* Linker and Librarian 
* Full-Screen Editor 
- Newsletter for bugs/updates — 


SYMBOLIC DEBUGGER 

* Monitor and change variables by 
name using C expressions 

* Multi-Screen support for debugging 
PC graphics and interactive systems 

Optionally display C source during 
execution 

* Breakpoint by Function and Line # 


COMPLETE IMPLEMENTATION 
* Both 1.0 and 2.0 DOS support 
* Everything in K&R (incl. STDIO) 
* Intel assembler mnemonics 
* Both 8087 and Software Floating Point 


OUTSTANDING PERFORMANCE 
Sieve Benchmark 
COMPILE 4 Sec. RAM — 
22 Sec FDISK 
LINK 6 Sec. RAM — 
34 Sec. FDISK 
RUN 12 Sec. 
SIZE 8192 bytes 


DeSmet C 
Development Package 


To Order Specify: 
Machine 


0S  OMS-DOS CO CP/M-86 

Disk 08” O5%SS O5%DS 
WARE 
CORPORATION 


P.O. BOX 710097 
San Jose, CA 95171-0097 
(408) 736-6905 


California residents add sales tax. Shipping: U.S. no 
charge, Canada add $5, elsewhere add $15. Checks 
must be on a US Bank and in US Dollars. 





C/ U Ni IX (Listing Continued, text begins on page 86) 
Listing Six 


ii) On entry to begin, when es contains the 
program seqment prefix (PSF), es:C2chl] contains 
the segment address of the environment. This 
segment address is stored into the second word 
of envseg._ (ie fenvseg). 


The environment may now be referred to through 
the external LPTR envseg. 


iii) If DOS 2.0 allocation is to be used, be sure to 
shrink the program size using the SETBLOCK function. 
This must also be done in #begin where the psp, 
ds, segments are both available. 


¥/ 


#include <stdio.h-+s 
#include "lsup.h" /* support for long pointers */ 


extern LFTR envseg; /*¥ envseg is a structure of type LFETR */ 


maintargce,argv? 

int argc; 

char Kargvld; 
char chr; 
int 13 
LFTR lptrs 


lassign(lptr,envseg); /* get long pointer to environment */ 


whiledl) /* loop */ 


r 
5 


chr = lehrt&lptr) ; /*¥ get the next byte */ 


if¢'chr) /* we have hit the end of the environment */ 
break ; 


whilet€¢chr = lchr(&lptr))) /* get characters of string */ 


sé 
u 


putchar tchr) 3 /*k write them to console x/ 
linc(t&lptr); /* increment pointer */ 
linct&lptr); /*¥ pass the zero byte just encountered ¥*/ 


putchar (*\n") 3s /* add new line between entries */ 


} “#*® end whiletl) x/ 


hi 


End Listings 
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80 CHARACTER VIDEO BOARD 
e WORDSTARIGCBASE II OPTION 
e TYPE AHEAD KEYBOARD BUFFER 


e 25 LINE NON-SCROLL OPTION 

e Z80 CPU and 8275 CRTC ~~‘ S-100 

e CHARACTER GRAPHICS 

e ADAPTABLE SOFTWARE 

e ORDER ASSEMBLED & TESTED OR 
PRE-SOLDERED (ADD YOUR IC’s) 


VDB—A2 bare board from $49.50 


Simplway PRODUCTS CO. 
(312-359-7337) 
P.O. BOX 601, Hoffman Estates, IL 60195 


add $3.00 S&H, 3% for Visa or Mastercard 
Illinois Res. Add 6% Sales Tax 


WORDSTAR is a trademark of MicroPro INTERN’L CORP. 


dBASe is a trademark of ASHTON-TATE CORP. 





Circle no. 65 on reader service card. 


Passive Solar Simulation 
LS a SS SS ES 


The complete original mainframe nodal passive 

solar simulation program is now available for 

microcomputers, with complete source code! 
patil Pi A lakes shah helt 


* 9 OVerlays produce detailed Stats & Plots 
* 3 Configurations: Direct Gain (Floor Mass) 
Mass Wall (with vents) 
Sunspace 
* Supports: Aux Heating and Cooling, Thermo- 
circulation, Isothermal or Multi-layered 
primary mass, Secondary mass, Hourly TMY 
Weather input, Overhangs, Window Insul- 
ation, Day/Night Cycles, Heat pipes, 
selective surfaces, etc. Only $175 


most sophisticated finite-difference 
nodal simulation for your microcomputer! 
spot Western Wares 
Saad Box C 


Norwood CO 81423 
3) 327-4898 


Circle no. 76 on reader service card. 





SMALL-C 2.0 


for 
THE IBM PERSONAL COMPUTER 
and 
MS-DOS COMPATIBLE SYSTEMS 


A large subset of C, packed from argc to 
xtoi () with features, including 


1/0 redirection, compilation by parts, peephole optimization, 
assembly language interface, conditional compilation, 
switch/case/ default, command line support, completion codes, 
initialization of global variables, data types-char, int, 

pointers, one-dimensional arrays, and externals 


Complete source code for the compiler and 
libraries plus a 22 page user manual are 
included. 


Requires: 
IBM PC assembler, ASM.EXE, or equivalent 
IBM PC-DOS 2.0, 2.1 or MS-DOS 2.0 
96K memory and a SS Disk Drive 


Send $35 check or money order to 


The Coriolis Company 
P.O. Box 76 
Clinton Corners, NY 12514 


(NY residents please add 5% for sales tax.) 


Executes sieve benchmark in 35 seconds! 





Circle no. 14 on reader service card. 


SAL / 80® ana SAL J 86" 


do for assembly language what 
RATFOR does for FORTRAN 
but emits 
OPTIMALLY DENSE code. 
SAL/8X includes console I/O. 
primitives which trivialize the task of 
writing complex interactive user 
interfaces. Improves programmer 
productivity by a factor of two and 
program maintainability by an order 
of magnitude. 
Extensively documented, available 
forall CP/ M compatible disk formats. 
SAL/80 version 2.1, $59.00, requires 
64K and MAC or RMAC. 
CALIFORNIA RESIDENTS ADD 6% SALES TAX. 
PROTOOLS® 
“Software Tools hor the Professional’ 
24225 Summerhill Avenue 
Los Altos, CA 94022 
(415) 948-8007 


Circle no. 52 on reader service card. 


68000 Cross Assembler 
Motorola VERSAdos + Compatible 


Assembler, Linker, Object and Macro Librarian. 
Absolute and Relocatable Code, Macros, In- 
cludes, and Conditional Assembly. Structured 
Programming. No limit on source file size. 


Unix (C) Compatible Source 
$700 


PC/DOSt CP/M-86* 
$250 $250 


Manual: $20 
(refundable) 


CP/M-80* 
$200 


@ farbware 


1329 Gregory 
Wilmette, IL 60091 


*Digital Research trademark, tiBM trademark, + Motorola trademark. 


(312) 251-5310 
after 5 p.m. 
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JVS-FORTH $10 
© SUPPORTS BYTE, INTEGER, AND REAL DATA 
© COMPLETE ACCESS TO CP/M 

* REQUIRES ASSEMBLER/LINKER BELOW 











BASIC COMPILER $20 
@ SUPPORTS INTEGER, REAL. AND STRING DATA 
@ 25 STATEMENT TYPES 
@ GENERATES 8080 ASSEMBLER CODE 
@ RUN TIME LIBRARY SOURCE AVAILABLE (S50 EXTRA) 
@ MANUAL ONLY $5 (REF. WITH SOFTWARE PURCHASE) 
@ REQUIRES ASSEMBLER/LINKER BELOW 


ASSEMBLER/LINKER $10 
@ SYMBOLIC 8080 RELOCATABLE ASSEMBLER 

@ LINK EDITOR (LIBRARY SEARCH CAPABILITIES) 
@ LIBRARIAN FOR LINK EDITOR LIBRARIES 


















FREE BROCHURE AVAILABLE 


eS SCCCCRERCCSCRRECESERE ESE REeee ee Eeeeeeeee PPI +4 
= REQUIRES CP/M-80 V2.2 AND 32K 
Z 8 3740 SSSD OR APPLE 5'«” 16-SECTOR 







H DISK FORMATS ONLY : 
B SCECCCRROCESEECOReeEeeeEeeES TTP 2 
WHEN ORDERING ADD $10 FOR 


SHIPPING. HANDLING. AND MEDIA COSTS 
MASS. SHIPMENTS ADD 5°o SALES TAX 
MAKE CHECK OR MONEY ORDER PAYABLE TO 


JV SOFTWARE 
P.O.BOX 684-NEWTON, MA 02162 


CP/M is a trademark of Digital Research. Inc 
APPLE is a trademark of Apple Computer. Inc 


Circle no. 30 on reader service card. 

















For $100 Bus Model 256KM 


256K/1MEG Byte Dynamic RAM 
256K with 64K DRAMS $759 


@ 256K/1 mega Byte using 64K or 256K DRAMS @ 

8/16b Data © 24b Address @ Parity per Byte @ 175 
nsec Access Time @ will run Z80/Z8000 to 6 mbz, 
8086, 80186, 68000 to 8 mhz without wait states @ 
transparent refresh, unlimited DMA. 


Other Boards for S-100 Bus Available. 


S.C. DIGITAL INC. 
1240 N. Highland Ave. Suite #4 
Aurora, Illinois 60506 
Phone: (312) 897-7749 
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I 






PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 











DYNAMIC RAM 












256K 150 ns $49.90 
64K 200 ns 5.67 
64K 150 ns 5.87 
64K 120 ns 7.50 
16K 200 ns 121 
EPROM 
27128 300 ns $22.50 
2764 250 ns 9.25 
2732 450 ns 5.40 
2716 450 ns 3.60 
2532 450 ns 4.80 
STATIC RAM 






S565P-15 150 ns $43.00 
6264LP-15 150 ns 45.50 
6116P-3 150ns 6.56 















MasterCard VISA or UPS CASH COD 
Factory New, Prime Parts 
MICROPROCESSORS UNLIMITED 
24.000 South Peoria Ave 
BEGGS. OK. 74421 (91 8) 267-4961 
Prices shown above are for April 13. 1984. 
Please call for current & volume prices. Prices Subject to change. Please expect higher 
Prices on some parts due to world wide shortages. Shipping and Insurance extra Cash 


discount prices shown. Small orders received by 6 PM CST can usually be delivered to 
you by the next morning, via Federal Express Standard Air « $5.99! 


Pos 
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cph22 INTRCE PT dos 


a ia gl 
NEW version for 1984! 


¢ Enables programs written for Digital Research 
CP/M 2.2 to run under Cromemco CDOS and 
vice versa. INTRCEPT release 3 automatically 
recognizes the host system, and emulates 
CP/M 2.2 if the host is CDOS, or emulates 
CDOS if the host is CP/M 2.2. 
¢ No programming, delivered ready-to-run. 
¢ Customizable...comes with CDOS emulator 
source, CP/M 2.2 emulator source optional. 
¢ Z8O assembly language, no program or 
operating system modifications. 
$150 w/CDOS emulator source 
$250 w/CDOS & CP/M emulator source 


8” SSSD, inquire about 5%.” 
add $3 shipping, add 6% tax in CA 
VISA, MC,check 





















microSystems 
16609 Sagewood Lane 

Poway, California 92064 
(619) 693-1022 
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OF INTEREST 


by Michael Wiesenberg 


Track Zero 


I knew that this year’s West Coast 
Computer Faire would be hoppin’ 
from the moment I tried to get in on 
Saturday. “‘No problem,’ DDJ editor 
Renny Wiggins had said on Thursday. 
‘Your pass is waiting for you. I saw it 
myself.” 

It seems that DDJ passes can be 


filed under four possible names: Doc- 


tor Dobb’s Journal, People’s Computer 
Company, M & T Publishing, Inc., and 
Business Software (the new sister pub- 
lication). I checked all with no success. 

Officials kept shunting me from 
one line to another, from one person 
with the authority to grant tickets to 
another. They were less than im- 
pressed with my “business card”’ that 
Renny had assured me would be my 
entree if all else failed: the name of the 
magazine, the new address, but not my 
name. 

In desperation I called the DDJ 
booth. New editor-in-chief Mike 
Swaine came out to assist. After 15 
minutes of further fruitless official 
shuttling and line waiting, I asked 
Mike, “‘What would Usasi do?” “‘Sneak 
in the side door.” 

Finally Renny showed up. He 
found my ticket misplaced among the 
press passes, and I was in. 

The show itself was a bore. There 
was nothing to match last year’s Per- 
fect Software laser and fog spaceship, 
nor the numerous robots walking 
among the throngs. 

This year the most exciting offer- 
ings were several speech synthesizers 
that faithfully reproduced verbally 
anything passers-by typed on their 
keyboards. Apple had a 16-foot Mac 
mockup, but we’ve seen giant screens 
before, particularly those with waver- 
ing, fuzzy images. 

Probably the best show in town 
was the Friends of Dr. Dobb’s Party 
that night at the Vorpal Gallery. 


The Vorpal Gallery, filled with 
world renowned modern art, including 
many Escher originals, was a classy 
place for M & T to announce its licens- 
ing agreement with Dr. Dobb’s Journal. 

The food was excellent — piping 
hot meatballs in sauce, vegetables with 
several dips, stuffed mushrooms, puff 
pastries, brie — and the many varieties 
of wine never stopped flowing. 


I asked Timothy Leary if he was 
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going to get into psychedelic software. 
He said that it was already here, that 
computers were becoming the drugs 
of the eighties. 

I shook hands with Robin Wil- 
liams, who was carrying a plastic shop- 
ping bag full of computer goodies and 
literature just like the rest of us. 

Sat Tara Singh Khalsa, president 
of Kriya Systems, and devoted to the 
idea of programmer as superstar, held 
court in turban and white Sikh outfit. 


Art Kleiner, editor of the Whole 
Earth Software Catalog and Review, 
was there, as were Tony Bove and 
Cheryl Rhodes, copublishers of The 
Users’ Guide. 

Dick Heiser, who started the first 
computer store ever, showed up, as 
did Gordon Eubanks, developer of 
CBASIC. 

I spoke with John Draper, better 
known in his persona of the infamous 
Cap’n Crunch, phone phreak and pub- 
licizer of various rainbow- colored 
boxes. Gerald Schmidt, the undercover 
FBI informant who has been called 
‘the most knowledgeable person on 
computer crime in the country,” met 
Crunch face-to-face for the first time 
at the party. 

Roger Gregory, systems anarchist, 
and Ted Nelson, both of Project 
Xanadu, floated about the canapes. 


John Markoff, West Coast editor 
for Byte, and Paul Freiberger, who has 
the same position with Popular Com- 
puting, talked with their former asso- 
ciate, David Needle, news editor of 
InfoWorld. 

Carl Helmers, the first editor of 
Byte, was seen, as were David Ahl, 
publisher of Creative Computing and 
Sync, and Elizabeth Staples, editor of 
Creative Computing. 


Robert Harp, president of Corona 
Systems, wandered around. 

Chris Terry, technical editor of 
Microsystems, was in evidence. 

Midway through the party, John 
Barry, managing editor of InfoWorld 
Books, and Jack Klyster, mad inventor 
of the klystron tube, came in together. 


While punching it down Market 
Street in my Volvo station wagon, 
listening to Antonin Dvorak’s New 
World Symphony on the stereo, I 
said to myself, “I hope they give me 
real business cards before next year’s 


Faire.” 














Punching Diskettes 


The Disk Notcher from Quorum 
makes another write enable notch so 
you can use the flip side of diskettes. 
For Apple II+ and Ile, Certifix formats 
the new side, examines the surface, 
locks out flaws so they can’t be used, 
displays and saves status report, and 
initializes with DOS 3.3. Both prod- 
ucts cost $29.95, with 64 write pro- 
tect tabs and 32 diskette labels thrown 
in, or Certifix alone for $24.95, and 
the Disk Notcher tool alone for $15. 
Add $1.50 p. and h., and Californians 
add sales tax. Reader Service No. 101. 


A Likely Case 


Anvil Cases fit most microcom- 
puters and are virtually indestructible. 
They are foam-lined with aluminum 
exterior. Some can be customized by 
users for unusual configurations. In 
addition to the portable cases, rack- 
mount cases are available for heavier 
equipment. Anvil has been making 
these cases for 20 years for the music 
industry, to take sound systems on the 
road. Reader Service No. 103. 





Dazzle Your Friends 


One of the best graphics displays 
I saw at the Faire was produced by the 
Graphics Dazzler from Sigma Designs, 
a plug-in for the IBM PC, with 1024 
x 1024 x 4 maximum display mem- 
ory, 640 x 200 standard viewable dis- 
play, 640 x 400 in “‘interlaced” mode. 
You get two display planes for four 
colors standard, or four display planes 
for 16 with the Graphics Enhancer 
stack. The board is compatible with 
all color and black-and-white mon- 
itors used with the PC. The dis- 
play area can be panned over the 
1024 x 1024 display memory, with 
a 1-to-16 zoom over any display area. 
All the work is performed by NEC 
7220 display controller software, 
which also has hardware line drawing, 
area filling, and arc drawing. There is a 
light pen interface, and you get 
graphic display software and DOS 
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boot program. The Dazzler is $895, 
Enhancer $695. The Maximizer, at 
$395, has, in one card, 64K RAM, ex- 
pandable to 384K, parallel interface 
for printer or bidirectional I/O, RS- 
232C serial interface, clock/calendar 
with battery backup, RAM disk, 
printer spooler, and, optionally, 
second RS-232C ($60) and a game 
control adapter that supports four 
paddles or two joysticks ($40). Sigma 
also offers various expansion cards, 
video cards, and hard disk subsystems 
that add from 10 to 33 Mb from 
$1695 to $4295. Reader Service 

No. 105. 


Two More Processors for 
Heath/Zenith 


The H-1000, from Technical 
Micro Systems, is a Z80/8086 plug-in 
replacement upgrade for H89/Z89 
that needs no modifications. The Z80 
runs at 2/4 MHz, and the 8086 at 
8 MHz. The board comes with 256K 
RAM, expandable to 1 Mb. It has five 
I/O slots, and is fully compatible with 
all Heath/Zenith peripherals. It runs all 
Heath/Zenith software without modi- 
fication, and is compatible with Zenith 
Z100 and IBM PC. You get your 
choice of MS-DOS or CP/M-86. TMSI 
seems a bit confused about its prices. 
The specifications brochure claims 
256K RAM standard, while the price 
list cites the basic board with 128K for 
$995, and upgrade to 256K for another 
$250. Expansion to 512K is $1695, 
and to 1 Mb, $3495. They will also sell 
it to you as a complete system in a 
modified H89/Z89 case: 128K and one 
100K disk drive, $2495 ; 256K and one 
320K drive, $2995; or 256K and two 
320K drives, $3295. TMSI also has a 
lot of software for the board and com- 
puter, including Concurrent CP/M- 86, 
MP/M-86, RAM disk utilities, ac- 
counting and communications pack- 
ages, data base, languages legal, plan- 
ning, spreadsheet, word processing. 
You can also discuss their making a 
custom configuration for you. Reader 
Service No. 107. 


Mass Marketing Software 


Paul Terrell believes that software 
should be vended at K-Marts, Tower 
Recordses, Long’ses, and 7-Elevens on 
reprogrammable video game cartridges. 
The president of Romox was showing 
off his products at the Faire, including 
programs for as little as $7.95. When 
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you get tired of one, just bring back 
the cartridge, pay the clerk from $7.95 
to $15, and get a new one. Not just 
games, but education, business, etc.., 
are available now for Atari computers 
and 2600, Commodore 64, Vic 20, 
TI 99/44A, and coming soon for IBM 
PC, PCjr, Coleco and MSX. I saw the 
ROM programmer at work. You can 
see a list of all games and get a short 
preview of any game on the list. 
Reader Service No. 109. 


Get GUMMed 


The Gurus of Unix Meeting of 
Minds (GUMM) takes place Wednes- 
day, April 1, 2076 (check that in your 
perpetual calendar program), 14 feet 
above the ground directly in front of 
the Milpitas Gumps. Members will grep 
each other by the hand (after intro), 
yacc a lot, smoke filtered chroots in 
pipes, chown with forks, use the wc 
(unless uuclean), fseek nice zombie 
processes, strip, and sleep, but not, we 
hope, od. Three days will be devoted 
to discussion of the ramifications of 
whodo. Two seconds have been al- 
loted for a complete rundown of all 
the user-friendly features of Unix. 
Seminars include “‘Everything You 
Know is Wrong,” led by Tom Kemp- 
son, ‘‘Batman or Cat:MAN?”’ led by 
Richie Dennis, ‘“‘cc C? Si! Si!’’ led by 
Kerwin Bernighan, and “‘Document 
Unix? Are You Kidding?” led by Jan 
Yeats. No Reader Service No. is neces- 
sary because all GUGUs (Gurus of 
Unix Group of Users) already know 
everything we could tell them. 


Simply the Best 


Computer Literacy Book Shop 
claims to be the best computer book- 
store in the world, and the only one 
devoted exclusively to computers. 
They have over 4500 titles, and if 
you don’t find what you want, they'll 
order it. Owners Dan Doernberg and 
Rachel Unkefer have acted as con- 
sultants to the Whole Earth Software 
Review. Reader Service No. 111. 


Pay for It if You Like It 


PC- Write, from Quicksoft, has the 
right marketing idea. This excellent 
word processor for IBM PC and PCjr 














(which some reviewers claim is better 
than the old standbys; it has all the 
features of the $400 word processors 
and a few more) costs $10 if you get it 
from the publisher, or it’s free if you 
get it from a friend. Quicksoft encour- 
ages distribution of copies. They ask 
only that if you like it you send them 
$75. They'll send you a bound copy of 
their manual, give you telephone sup- 
port, a free copy of the next revision, 
Pascal and assembly source, and a $25 
commission when anyone else registers 
from a copy of your registered dis- 
kette. Reader Service No. 113. 



















Contact Points 


Anvil Cases, Inc., 4128 Temple City 
Blvd., Rosemead, CA 91770; (213) 
575-8614. 


Computer Literacy Book Shop, 520 
Lawrence Expressway, Suite 310, Sun- 
nyvale, CA 94086; (408) 730-9955. 


Quicksoft, 219 First N #224, Seattle, 
WA 98109; (206) 282-0452. 


Quorum International, Unltd., Indus- 
trial Park Station, Box 2134, Oakland, 
CA 94614; (415) 552-8240. 


Romox, Inc., 476 Vandell Way, Camp- 
bell, CA 95008; (408) 374-7200. 


Sigma Designs, Inc., 2990 Scott Blvd., 
Santa Clara, CA 95050; (408) 
496-0536. 


Technical Micro Systems, Inc., Dept. 
H, 366 Cloverdale, Box 7227, Ann 
Arbor, MI 48107; (313) 994-0784. 




















BBJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 200. 






NAVAN 
SUBROUTINE 
LIBRARY 


503/884-3023 


Now, a library of Numerical Methods 
Subroutines for use with your FORTRAN 
relgeye eum 


Over sixty subroutines of 
FUNCTIONS 
INTEGRATION 
MATRICES 
NON-LINEAR SYSTEMS 


INTERPOLATION 
LINEAR SYSTEMS 
POLYNOMIALS 
DIFFERENTIAL EQ 


Versions available for several FORTRAN 
compilers running under CP/M-80 and MS-DOS 
(PC-DOS). 


Ofes-) Ga -401 OF 
Manual available, $25. 


microSUB: MATH 


Zor-lalamexelarsieindialenm . OM oleh fom Wain Gi lant hal ot-lil-mm@) omer AclOn| 


Circle no. 24 on reader service card. 
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Available now. 


The Best of Both Worlds 


High-performance 


Commuhige Eestware Elegance 


Cromemco Software. 
Cromemco’s MC68000-Z80 CROMIX multi-tasking 
operating system with drivers to support CompuPro hardware. 
(requires Cromemco DPU) 








Power 


Minimum configuration: 


DPU - SystemSupport! - Disk1 - Interfacer3 or 4 - 192K RAM . 


CROMIX with drivers to support minimum configuration $890. 
Special drivers only $295. 


TET T TTT TT FETT TT ETT EET PTET TT TE 
The following products can be added to any 8 or 8-16 bit CROMIX system: 
SCSI hard disk drivers $195. is 


15Mb formatted hard disk subsystem $2095. 
30Mb (two drives) $2995. 


MDrive-H drivers $195. 
CompuPro 512K MDrive-H hardware $1695. 
PETTITTE TTT TTT TTI so 


Other drivers in development... custom inquiries welcome. 


Speed 








Authorized CompuPro Dealer. 


PuterParts’ 
2004 4th Avenue € Users’ Group 
P.O. Box 12339 Supporting All C Users 
Seattle, WA 98111-4339 Box 287 


Yates Center, KS 66783 
Telephone (206) 682-2590 








OPEN 
2-6 Tuesday-Saturday 





*PaterParts” is a registered trademark 
of Katharos Companies 
Additional trademarks: Z80, Zilog: MC68000, Motorola: CROMIX, DPU, Cromemco: 
SystemSuppori], Disk], Interfacer3, -4, MDrive-H, CompuPro. 
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ALL AT ONCE! 


AND NEVER A “LOCKED OUT” USER! 


Apex Industries Customer Data 


Customer Id: Acme ; 

Customer Name: Acme !ndustries 

Olc-Toli a at-tlare bev Mmm Olc-leli@ Mluiliew2t 00) 
Current Balance: 17451010) 
30 Day Balance: 4000 
60 Day Balance: 1500 


90 Day Balance: 0 
siti Tale F 
Address: 2701 South Bayshore Drive 
City: Miami State: FL Zip: 33133 
Tall eyeiare k 
Address: 913 Majorca Avenue 
City: CoralGables State: FL Zip: 33134 
Phone: 305-856-7503 Contact: Gerald Green 





DataFlex is the only application development __ takes to actually write it to the file! The updated 
database which automatically gives you true record is then immediately available. The 
multi-user capabilities. Other systems can lock number of users who can access, and change, 
you out of records or entire files for the full records at the same time is limited only by 
time they are being used by someone else. the number of terminals on your system or 
DataFlex, however, locks only the databeing —_ network. Call or write today for all the details 
changed, and only during the micro-seconds it on DataFlex...the true multi-user database. 


DATAF : 


DATA ACCESS CORPORATION 


8525 SW 129 Terrace, Miami, FL 33156 (305) 238-0012 
Telex 469021 DATA ACCESS Cl 


Tm 





See us at 


)ECOMDEK”/Spring 84 


Compatible with CP/M-80, MSDOS networks, MP/M-86, Novell Sharenet, PC-Net, DMS Hi-net, TurboDOS multi-user, Molecular 
May 22-25, 1984 N-Star, Televideo MmmOST, Action DPC/OS, IBM PC w/Corvus, OMNINET, 3Com EtherSeries and Micromation M/NET. 
prin laa seal ol MSDOS is a trademark of Microsoft. CP/M and MP/M ed trademarks of Digital Research. 
Booth #3424 Circle no. 18 on reader service card. 





-EXTENDED PASCAL FOR YOUR 
IBM PC, PC jr, APPLE CP/M, 
MSDOS, CP/M 86, CCP/M, 

OR CP/M 80 


ANNOUNCING .. . 
VERSION 2.0 


NOW... 
WITH 
WINDOWING 


$49.95 


NEW FEATURES 


WINDOWING! 

... This is a real shocker. On the IBM PC or PC jr. you'll now 
have a procedure to program windows... . Any part of the 
screen can be selected as a window and all output will 
automatically go to this part of the screen only. As many 
windows as you please can be used from the same 
program. 


AUTOMATIC OVERLAYS! 


.. No addresses or memory space to calculate, you simply 
specify OVERLAY and TURBO PASCAL will do the rest. 


GRAPHICS, SOUND AND COLOR SUPPORT 
. For your IBM PC or JR! 


FULL HEAP MANAGEMENT! 
.. via dispose procedure. 


OPTIONAL 8087 SUPPORT! 


.. Available for an additional charge. 
lf you have a 16 bit computer with the 8087 math 
chip—your number crunching programs will execute up 
to 10X faster! 


ORDER YOUR COPY OF TURBO PASCAL VERSION 2.0 TODAY 
For VISA and MasterCard orders call toll free: 1-800-227-2400 x968 
In CA: 1-800-772-2666 x968 


(lines open 24 hrs, 7 days a week) 
Dealer & Distributor Inquiries welcome 
408-438-8400 





“What | think the computer industry is headed for: well 
documented, standard, plenty of good features, anda 
reasonable price.” 

Jerry Pournelle, 

Byte, February 1984 


“The Perfect Pascal” 
Alan R. Miller, 
Interface Age, January 1984 


If you already own Turbo 
Pascal version 1.0, you can 
upgrade to 2.0 for $29.95. Just 


send in your old master with 
your check. (Manual update 
included of course). 
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CHOOSE ONE pisase add > Check —.— Money Order My system is: 8 bit 16 bit 

$5. OP fobshipping and hans oe ie, MISA 9 4:- MasterCard Operating System: CP/M 80 

for US. orders) coh ye el CP/M 86 MS DOS PC DOS__ 
Turbo Pascal 2. 0 $49. 95 Exp. date: Shipped UPS Computer: Disk Format: 


Turbo Pascal 2.0 with . 
8087 support $89.95 
_____ Update (1.0 to 2.0) Must 

be accompanied by the 

Original master $29.95 
_____ Update (1.0 to 8087) Must 
be accompanied by the 
Original master $69.95 








‘B® BORLAND 


B®) | NTERNATIONAL 


Borland International 

4113 Scotts Valley Drive 
Scotts Valley, California 95066 
TELEX: 172373 
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Please be sure model number & format are correct. 
NAME: 

ADDRESS: 

CITY/STATE/ZIP: 

TELEPHONE: 


California residents add 6% sales tax. Outside U.S.A. add $15.00. (If outside 
of U.S.A. payment must be by bank draft payable in the U.S. and in U.S. 
dollars.) Sorry, no C.O.D. or Purchase Orders. Bl] 





